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Through the courtesy of 

FORTH IHTEREST GROUP 
P. 0. Box 1105 
San Carlos, CA 94070 

Release 1 . 1 
With compiler security 
and 

variable length names 

Further distribution must include the above notice 

The FIG Installation Manual is required as it 

contains the model of FORTH and glossary of the system. 

Available from FIG at the above address for $10.00 postpai 

Translated from the FIG Model by W. F. Ragsdale 
with input-output given for the Rockewell System-65. 
Transportation to other systems only requires 
alteration of: XEMIT, XKEY, XQTER, XCR, and RSLW. 
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T T1TT1 

LINE 


// LOG 


CODE 


LINE 






UUiJ 


nooo 
uuuu 




\ 






UUiD 


nnnn 
uuuu 




; Equates giving memory assigraents, machine 




onoo 
uuuu 




; registers. 


and disk. nAramet^rs . 




nnon 

UUUU 












nana 










0030 


onoo 




SSIZE 


= 128 


sector size in bytes 


0031 


0000 




NBUF 


=8 


; number of buffers desired in ram 




0000 




9 




(SS1ZE*NBUF >= 1024 bvtes) 


0033 


0000 




SECTR 


= 800 


fi^f*rDf s npr dr i VP 


0034 


0000 








forcing hi drive to Sc re en it L 00 


0035 


0000 




SECTL 


-1600 


sector I i nvi r for 2 drives 




noon 

\J u v u 








n "F flnn fiiapffTTQ n^t* d 1™ Hrv t» 

\J jL O \J *J o C L L U 1 3 UCL U I 1 V " 




nnnn 

UUUU 




BMAG 


"1056 


t"offl1 hmffer ihapti*! fttdf 1 .. -f n hvtp^ 


on '-is 


uuuu 








exnres'ied hv SSIZE+4*NRUF 


0039 


0000 




\ 
% 








oonn 
uuuu 




ROS 
DUO 


=$20 


bottom of data stack, in z-page. 




nono 

UUUU 




TOS 


=$9E 


top of data stack, in z-page. 


00£? 


00 




N 


-T0S+8 


xXxxxxxxx scratch workspace 


0043 






IP 


=N+8 


Xx interpretive pointer 




0000 




w 


=IP+3 


xXx code field pointer 


UU4J 


OOOO 
uuuu 




UP 


=W+2 


Xx user area pointer 




0000 




XSAVE 


=UP+2 


X temporary for X register 


0047 


0000 










noAft 

UUhO 


noon 
uuuu 






=$0100 


terminal input buffer of 84 bytes. 


0049 


0000 




ORIG 


=$0200 


origin of FORTH "s dictionary. 


0050 


0000 




MEM 


=$4000 


top of assigned memory+1 byte. 


005 1 


0000 




UAREA 


=MEM-128 128 bytes of user area 




nnnn 




DAREA 


=UAREA- 


-BMAG disk buffer area 




nnnn 




* 






0054 


y V <J KJ 




• 
> 


Monitor calls for terminal support 




nnnn 










0056 


oooo 




OUTCH 


=$D2C1 


; output one ASCII character to termina 


0057 


0000 




INCH 


=$D1DC 


; input one ASCII character from termina 


0058 


0000 




TCR 


=$D0F1 


; terminal return and line feed 


0059 


0000 




i 






0060 


0000 




> 






0061 


0000 




; From DAREA downward to the top of the dictionary is free 


0062 


0000 




; space where the user's applications are compiled. 


0063 


0000 




> 
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LINE 


# LOC 




CODE 


LINE 






0065 
















\J U \J \J 


nnnn 








; Boot up parameters. This area provide jump vectors 


\J\JO I 










; to bootup code, 


and parameters describing the system 


uuoe 


uuoo 














uuoy 


uuuu 








*=0RIG 




0070 


0200 


EA 






ENTER NOP 




User cold entry point 


0071 


Ail A 1 


4C 


47 


12 


JMP COLD+2 


vector to COLD entry 


0072 


0204 


EA 






REENTR NOP 




; User warm entry point 


0073 






57 


12 


JMP WARM 


vector to WARM entry 


0074 


n .i ri n 

0208 


04 


00 




. WORD 


$0004 


6502 encoded in radix-36 


0075 


02 OA 


02 


5E 




.WORD 


$5ED2 




0076 


UZUC 


64 


1A 




.WORD 


NT0P 


Name address of MOM 


nn 7 7 




71? 


00 




. WORD 


$7F 


Backspace character 


uu / o 


0? 7 

■J JL L\J 


fin 


3F 




.WORD 


UAREA 


Initial user area 


HD7Q 
UU / J 






00 




.WORD 


TOS 


Initial top of stack 


nn^n 

UUOu 


0? 1 L 

JiilH 


r r 


01 




. WORD 


$1FF 


Initial top of return stack 


00H 1 

UUUl 




nn 


01 




. WORD 


TIBX 


Initial terminal input buffer 




1 v 




00 




. WORD 


31 


Initial name field width 




n? i a 


nn 


00 




. WORD 





0=no disk 1-disk 


u u o ^+ 




7i 
/ 4- 


1A 




• WORD 


TOP 


Initial fence address 


\JVoj 


no i r 
'._if. 


7 A 


1A 




.WORD 


TOP 


Initial top of dictionary 


UUOO 


noon 




11 




.WORD 


VL0 


Initial vocabulary link pointer 


uuo / 
















0088 


0222 








; The following offset adjusts all code fields 


0089 


0222 








; to avoid an address ending $xxFF. This must 


0090 


0222 








; he checked and 


altered on any alteration, for 


0091 


0222 








; the indirect jump at W-l to operatel!! 


0092 


0222 














0093 


0222 














0094 


0222 














0095 


0224 
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LINE 


§ LOC 




CODE 


LINE 




0097 


0224 














0098 


0224 












LIT 


0099 


0224 














0100 


0224 












SCREEN 13 LINE 1 


0101 


0224 














0102 


0224 


83 




L22 


.BYTE $83,'LI',$D4 < name field 


0102 


0225 


4C 


49 










0102 


0227 


D4 












0103 


0228 










; < link field 


0104 


0228 


00 


00 








t act link is marked bv zero 


0105 


022A 


2C 


02 


LIT 


.WORD *+2 


< code address field 


0106 


022C 


Bl 


AE 






LDA (IP),Y 


< start of parameter field 


0107 


022E 


48 








PHA 




0108 


022F 


E6 


AE 






INC IP 




0109 


0231 


DO 


02 






BNE L30 




0110 


0233 


E6 


AF 






INC IP+1 




0111 


0235 


Bl 


AE 


L30 


LDA (IP),Y 




0112 


0237 


E6 


AE 


L31 


INC IP 




0113 


0239 


DO 


02 






BNE PUSH 




0114 


023B 


E6 


AF 






INC IP+1 




0115 


02 3D 








* 






0116 


023D 


CA 




PUSH 


DEX 




0117 


02 3E 


CA 








DEX 




0118 


023F 








i 






0119 


02 3F 


95 


01 


PUT 


STA 1,X 




0120 


0241 


68 








PLA 




0121 


0242 


95 


00 






STA 0,X 




0122 


0244 














0123 


0244 










NEXT Is the address interpreter that moves from 


0124 


0244 










machine level word to word. 


0125 


0244 














0126 


0244 


AO 


01 


NEXT 


LDY #1 




0127 


0246 


Bl 


AE 






LDA (IP),Y 


Fetch code field address pointed 


0128 


0248 


85 


B2 






STA W+l 


to by IP 


0129 


024A 


88 








DEY 




0130 


024B 


Bl 


AE 






LDA (IP),Y 




0131 


024D 


85 


Bl 






STA W 




0132 


C24F 


20 


6F 


02 




JSR TRACE 


Remove this when all is well 


0133 


0252 


18 








CLC 


Increment IP by two 


0134 


0253 


A5 


AE 






LDA IP 




0135 


0255 


69 


02 






ADC #2 




0136 


0257 


85 


AE 






STA IP 




0137 


0259 


90 


02 






BCC L54 




0138 


025B 


E6 


AF 






INC IP+1 




0139 


02 5D 


4C 


B0 


00 L54 


JMP W-l 


Jump to an indirect jump (W) 


0140 


0260 










which vectors to code pointed by a code 


0141 


0260 














0142 


0260 










CLIT pushes next inline byte to data stack 


0143 


0260 














0144 


0260 


84 




L35 


. BYTE $84,'CLI',$D4 


0144 


0261 


43 


4C 


49 








0144 


0264 


D4 












0145 


0265 


24 


02 






•WORD L22 


LINK TO LIT 


0146 


0267 


69 


02 


CLIT 


.WORD *+2 




0147 


0269 


Bl 


AE 






LDA (IP),* 
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LINE 


// LOG 




CODE 


LINE 




0148 


02 6B 


48 




PHA 




0149 


026C 


98 




TYA 




0150 


026D 


F0 


C8 


BEQ L31 


a forced branch into LIT 


0151 


026F 










0152 


026F 






; This Is a 


temporary trace routine, to be used 


0153 


026F 






; until FORTH is generally operating. Then NOP 


0154 


026F 






; the terminal query "JSR ONEKEY". This will allow 


0155 


026F 






; user input 


to the text interpreter. When crashes 


0156 


026F 






; occur, the 


display shows IP, W, and the word 


0157 


026F 






; locations 


of offending code- When all is well, 


0158 


026F 






; remove: TRACE, TCOLON, PRNAM, DECNP and the 


0159 


026F 






; following monitor/register equates. 


0160 


026F 










0161 


026F 










0162 


026F 






; Monitor routines needed to trace 


0163 


026F 










0164 


026F 






XBLANK =$D0AF 


Print one blank 


0165 


026F 






CRLF -$D0D2 


Print a carriage return and line feed 


0166 


026F 






HEX2 =$D2CE 


Print accum as two hex numbers 


0167 


026F 






LETTER =$D2C1 


Print accumulator as one ASCII character 


0168 


026F 






ONEKEY =$D1DC 


Wait for keystroke, into accum. 


0169 


026F 






XW =$12 


Scratch register to next code field address 


0170 


026F 






NP =$14 Another scratch register pointing to name 


0171 


026F 






* 




0172 


026F 


86 B5 


TRACE STX XSAVE 




0173 


0271 


20 


D2 DO 


JSR CRLF 




0174 


0274 


A5 


AF 


LDA IP+1 




0175 


0276 


20 


CE D2 


JSR HEX 2 




0176 


0279 


A5 


AE 


LDA IP 




0177 


02 7B 


20 


CE D2 


JSR HEX2 


Print IP, the interpretive pointer 


0178 


027E 


20 


AF DO 


JSR XBLANK 


0179 


0281 






> 




0180 


0281 


AO 


00 


LDY #0 




0181 


0283 


Bl 


AE 


LDA (IP),Y 


0132 


0285 


85 


12 


STA XW 




0183 


0287 


85 


14 


STA NP 


Fetch the next code field pointer 


0184 


0289 


C8 




I NY 




0185 


028A 


Bl 


AE 


LDA (IP),Y 


0186 


028C 


85 


13 


STA XW+1 




0187 


028E 


85 


15 


STA NP+1 




0188 


0290 


20 


D9 02 


JSR PRNAM 


Print dictionary name 


0189 


0293 










0190 


0293 


A5 


13 


LDA XW+1 




0191 


0295 


20 


CE D2 


JSR HEX 2 


Print code field address 


0192 


0298 


A5 


12 


LDA XW 




0193 


02 9A 


20 


CE D2 


JSR HEX2 




0194 


029D 


20 AF DO 


JSR XBLANK 


0195 


02 AO 










0196 


02AO 


A5 


B5 


LDA XSAVE 


Print stack location in z-page 


0197 


02A2 


20 


CE D2 


JSR HEX2 


0198 


02A5 


20 


AF DO 


JSR XBLANK 


0199 


02A8 






* 




0200 


02A8 


A9 


01 


LDA #1 


Print return stack bottom in Page I 


0201 


02AA 


20 


CE D2 


JSR HEX2 




0202 


02 AD 


BA 




TSX 
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LINE 


# LOC 




CODE 


LINE 






0203 


02AE 


E8 






I NX 




0204 


02AF 


8A 






TXA 




0205 


O2B0 


20 


CE D2 




JSR HEX 2 


0206 


02B3 


20 


AF DO 




JSR XBLANK 


0207 


02B6 






j 






0208 


02B6 


20 


DC Dl 




JSR 


ON EKE Y 


0209 


02B9 


A6 


B5 




LDX 


XSAVE 


0210 


02BB 


AO 


00 




LDY 




0211 


02BD 


60 






RTS 




0212 


02BE 






• 

J 






0213 


02BE 






; TCOLON is ca: 


0214 


02BE 






; point 


where ] 


0215 


02BE 






■ 






0216 


02BE 


86 


B5 


TCOLON 


STX 


XSAVE 


0217 


O2C0 


A5 


Bl 




LDA 


W 


0218 


02C2 


85 


14 




STA 


NP ] 


0219 


02C4 


A5 


B2 




LDA 


W+l 


0220 


02C6 


85 


15 




STA 


NP+1 


0221 


02C8 


20 D2 DO 




JSR 


CRLF 


0222 


02CB 


A9 


3A 




LDA 




0223 


02CD 


20 


CI D2 




JSR 


LETTER 


0224 


02DO 


20 


AF DO 




JSR 


XBLANK 


0225 


02D3 


20 


D9 02 




JSR 


PRNAM 


0226 


02D6 


A6 


B5 




LDX 


XSAVE 


0227 


02D8 


60 






RTS 




0228 


02D9 






* 
* 






0229 


02D9 






i 


Print name 1 


0230 


02D9 






w 
J 






0231 


02D9 


20 


FB 02 


PRNAM 


JSR 


DECNP 


0232 


02DC 


20 


FB 02 




JSR 


DECNP 


0233 


02DF 


20 


FB 02 




JSR 


DECNP 


0234 


02E2 


AO 


00 




LDY 


#0 


0235 


02E4 


20 


FB 02 


PN1 


JSR 


DECNP 


0236 


02E7 


Bl 


14 




LDA 


(NP),Y 


0237 


02E9 


10 


F9 




BPL 


PN1 


0238 


02 EB 


C8 




PN2 


I NY 




0239 


02EC 


Bl 


14 




LDA 


(NP) ,Y 


0240 


02EE 


20 


CI D2 




JSR 


LETTER 


0241 


02F1 


Bl 


14 




LDA 


<NP),Y 


0242 


02F3 


10 


F6 




BPL 


PN2 


0243 


02F5 


20 


AF DO 




JSR 


XBLANK 


0244 


02F8 


AO 


00 




LDY 


#0 


0245 


02FA 


60 






RTS 




0246 


02FB 






i 






0247 


02FB 






J 


Decrement n; 


0248 


02FB 






5 






0249 


02FB 


A5 


14 


DECNP 


LDA 


NP 


0250 


02FD 


DO 


02 




BNE DECNPI 


0251 


02FF 


G6 


15 




DEC NP+1 


0252 


0301 


C6 


14 


DECNPi 


DEC 


NP 


0253 


0303 


60 






RTS 




0254 


0304 






* 

i 






0255 


0304 






* 
* 






0256 


0304 


OA 




SETUP 


ASL 


A 


0257 


0305 


85 


A5 




STA N-l 



Wait for operator keystroke 

just to pinpoint early problems. 



'nests' one level. 



Locate the name of the called word. 



loop till D7 in name set 



print letters of name field 



field pointer 
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LINE 


# LOG 




CODE 


0258 


0307 


B5 






0259 


0309 


99 


AD 


An 
(JU 


0260 


030C 


Eti 






0261 


030D 


C8 






0262 


030E 


C4 


Aj 




0263 


0310 


DO 


F5 




0264 


0312 


AO 


00 




0265 


0314 


60 






0266 


0315 








0267 


0315 








0268 


0315 








0269 


0315 








0270 


0315 


87 






0270 


0316 


45 


58 




0270 


031C 


C5 






0271 


031D 


60 


uz 




0272 


031F 


21 


U J 




0273 


0321 


B5 






0274 


0323 


85 


R 1 

D 1 




0275 


0325 


B5 






0276 


0327 


85 


13 £ 




0277 


0329 


E8 






0278 


032A 


E8 






0279 


032B 


4C 




no 


0280 


032E 








0281 


032E 








0282 


032E 








0283 


032 E 








0284 


032E 


86 






0284 


032F 


42 


52 




0284 


0334 


C8 






0285 


0335 


15 


03 




0286 


0337 


39 


03 




0287 


0339 


18 






0288 


033A 


Bl 


A T 

AE 




0289 


033C 


65 


AT? 




0290 


033E 


48 






0291 


033F 


C8 






0292 


0340 


Bl 


a tr 




0293 


0342 


65 


A ¥ 




0294 


0344 


85 


nr 




0295 


0346 


68 






0296 


0347 


85 


A F 




0297 


0349 


4C 


46 


02 


0298 


034C 








0299 


034C 








0300 


034C 








0301 


034C 








0302 


034C 


87 






0302 


034D 


30 


42 




0302 


0353 


C8 






0303 


0354 


2E 


03 




0304 


0356 


58 


03 




0305 


0358 


E8 






0306 


0359 


E8 







LINE 

L63 LDA 0,X 
STA N,Y 
I NX 
INY 

CPY N-l 
BNE L63 
LDY #0 
RTS 



EXECUTE 

SCREEN 14 LINE 11 



L75 . BYTE $87,'EXECUT',$C5 



• WORD L35 ; LINK TO CLIT 

EXEC .WORD *+2 
LDA 0,X 
STA W 
LDA 1,X 
STA W+l 
INX 
I NX 

JMP W-l To JMP (W) In z-page 

\ BRANCH 

; SCREEN 15 LINE 1 

L89 -BYTE $86/BRANC' ,$C8 



BRAN 



.WORD L75 
.WORD *+2 
CLC 

LDA (IP),Y 
ADC IP 
PHA 
INY 

LDA (IP)»Y 
ADC IP+1 
STA IP+1 
PLA 
STA IP 
JMP NEXT+2 



LINK TO EXECUTE 



0BRANCH 

SCREEN 15 LINE 6 



L107 



. BYTE $87,'08RANC',$C8 



-WORD L89 ; LINK TO BRANCH 

ZBRAN .WORD *+2 
INX 
INX 
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LINE j LOC 




CODE 


LINE 






nm7 


oisa 


B5 


FE 




LDA $FE,X 




0108 


03 5C 


15 


FF 




ORA $FF,X 




0309 


035E 


F0 


D9 




BEQ BRAN+2 




nun 








> 








0360 


18 




BUMP 


CLC 




fill? 


361 


A5 


AE 




LDA IP 




mil 


0363 


69 


02 




ADC #2 




on 4 


0365 


85 


AE 




STA IP 




on i 


0167 


90 


02 




BCC L122 




nil f. 


0160 


E6 


AF 




INC IP+1 




mi i 
U Jl / 


ft 1 ATI 


4C 


44 02 


L122 


JMP NEXT 




nt i a 
U JIB 


n i Av 






• 






u jiy 


rt 'a at? 






• 




(LOOP) 


U JaU 








* 
> 




SCREEN 16 LINE 1 


U JaI 


A 1 AT? 






• 
■ 






uj/z 


m Air 
U JOE. 


86 




L127 


. BYTE $86,'(L00P',$A9 




fl 1 7 


n 1 Ax - * 


28 


4C 








0322 


03/4 


A9 










U Ji J 


n 1 7 ^ 


4C 


03 




.WORD L107 ; 


LINK TO BRANCH 




m 7 7 


79 


03 


PLOOP 


. WORD L130 






0170 


86 


B5 


L130 


STX XSAVE 




017A 


017R 


BA 






TSX 




oi? 7 




FE 


01 01 




INC $101,X 




0328 


017F 


DO 


03 




BNE PL1 




0329 


0381 


FE 


02 01 




INC $102,X 




0330 

'•■J -i -i -J 


0384 

%J +T 






» 






0331 


0384 


18 




PL1 


CLC 




033? 


0385 


BD 


03 01 




LDA $103, X 




0333 


0388 


FD 


01 01 




SBC $101, X 




0334 


038B 

U JOB 


BD 


04 01 




LDA $104, X 




0335 


038E 


FD 


02 01 




SBC $102, X 




0336 


0391 






* 
> 




0337 


039 1 


A6 


B5 


PL2 


LDX XSAVE 






0101 


OA 






ASL A 




VJJJ 


0104 


90 


A3 




BCC BRAN+2 




yjHu 


0196 


68 






PLA 






0397 


68 






PLA 




0342 

VJH4 


0108 


68 






PLA 




oiai 


0100 


68 






PLA 




oiaa 


OIQA 


4G 


60 03 




JMP BUMP 






oiQn 






. 






niA a. 


u jyu 






* 




(+L00P) 


014 7 


mon 






. 




SCREEN 16 LINE 8 


0148 


nion 






i 






0149 
w j ■# ? 


010T1 


87 




L154 


. BYTE $87,'(+LOOP',$A9 




ni4Q 




28 


2B 








oiaq 


01A4 


A9 










0350 


03A5 


6E 


03 




.WORD L127 LINK TO (LOOP) 


0351 


03A7 


A9 


03 


PPL00 


.WORD *+2 




0352 


03A9 


E8 






INX 




0353 


03AA 


E8 






INX 




0354 


03AB 


86 


B5 




STX XSAVE 




0355 


03AD 


B5 


FF 




LDA $FF,X 




0356 


03AF 


48 






PHA 




0357 


03B0 


48 






PHA 





fig-FORTH for 6502, Rel 1.1 PAGE 0009 



LINE 


# LOC 




CODE 


LINE 




0358 


03B1 


B5 


r Ej 






LDA $FE,X 


0359 


03B3 


BA 








TSX 


0360 


03B4 


E8 








I NX 


0361 


03B5 


E8 








INX 


0362 


03B6 


18 








CLC 


0363 


03B7 


7D 


CI 1 


I 




ADC $101, X 


0364 


03BA 


9D 


n i 


fl I 

U 1 




STA $101,X 


0365 


03BD 


68 








PLA 


0366 


03BE 


7D 


02 


01 




ADC $102,X 


0367 


03C1 


9D 


0? 

V *- 


n i 




STA $102, X 


0368 


03C4 


68 








PLA 


0369 


03C5 


10 


DU 






BPL PL1 


0370 


03C7 


18 








CLC 


0371 


03C8 


BD 




n l 
Ul 




LDA $101, X 


0372 


03CB 


FD 


03 


ri i 
01 




SBC $103, X 


0373 


03CE 


BD 


02 


01 




LDA $102, X 


0374 


03D1 


FD 


04 


01 




SBC $104, X 


0375 


03D4 


4C 


9 1 


03 




JMP PL 2 


0376 


03D7 








; 




0377 


03D7 








; 




0378 


03D7 








; 




0379 


03D7 








; 




0380 


03D7 


84 






L185 


.BYTE $84, 


0380 


03D8 


28 










0380 


03DB 


A9 










0381 


03DC 


9D 


03 

W -J 






.WORD LI 54 


03S2 


03DE 


EO 






PD0 


.WORD *+2 


0383 


03EO 


B5 








LDA 3,X 


0384 


03E2 


48 








PHA 


0385 


03E3 


B5 


02 






LDA 2,X 


0386 


03E5 


48 








PHA 


0387 


03E6 


B5 


01 






LDA l.X 


0388 


03E8 


48 








PHA 


0389 


03E9 


B5 








LDA 0,X 


0390 


03EB 


48 








PHA 


0391 


03EC 








> 




0392 


03EC 


E8 






POPTWO 


INX 


0393 


03ED 


E8 








I NX 


0394 


03EE 








• 




0395 


03EE 


E8 






POP 


INX 


0396 


03EF 


E8 








INX 


0397 


03FO 


4C 








JMP NEXT 


0398 


03F3 








; 




0399 


03F3 








j 




0400 


03F3 








■ 




0401 


03F3 












0402 


03F3 


81 






L207 


.BYTE $81, 


0402 


03F4 


C9 










0403 


03F5 


D7 


03 






.WORD LI 85 


0404 


03F7 


5F 


06 




I 


.WORD R+2 


0405 


03F9 












0406 


03F9 












0407 


03F9 












0408 


03F9 












0409 


03F9 


85 






L214 


.BYTE $85, 



(DO) 

SCREEN 17 LINE 2 



LINK TO (+LOOP) 



SCREEN 17 LINE 9 



; LINK TO (DO) 
Share the code for R 

DIGIT 

SCREEN 18 LINE 1 



fig-FORTH for 6502, Rel 1.1 



PAGE 0010 



LINE # LOG 




CODE 


LINE 




0409 


03FA 


44 


49 






0409 


03FE 


D4 








0410 


03FF 


F3 


03 




nAT"lT\ T ""J 

•WORD L207 


0411 


0401 


03 


04 


DIGIT 


• WORD *+2 


0412 


0403 


38 






SEC 


0413 


0404 




a o 
02 




LDA 2 , X 


0414 


0406 


E9 


30 




SBC ffS3Q 


0415 


040S 


30 


18 




BMI L234 


0416 


040A 


C9 


A A 

OA 




CMP $A 


0417 


040C 


30 


07 




BMI L227 


0418 


040E 


38 






SEC 


0419 


040F 


E9 


AT 

07 




SBC C7 


0420 


0411 


C9 


OA 




fTVJTl Jl Ik 

CMP f/$A 


0421 


0413 




UD 




TJ TJ T TIT/ 


0422 


0415 


D3 


Art 


TOOT 


CMP U, X 


0423 


0417 


1 n 
IU 


Ar> 
U9 




TJ tjt TOO/ 


0424 


0419 


n c 


AO 

uz 




S TA i , X 


0425 


041B 


A9 


A 1 
01 




LDA ff 1 


0426 


041D 


48 






PHA 


0427 


041E 


98 






TYA 


0428 


041F 


4C 


3F 02 




Tim m t tt> 

JMP PUT 


0429 


0422 


98 




too/ 

L234 


TYA 


0430 


0423 


48 






PHA 


0431 


0424 


E8 






INX 


0432 


0425 


E8 






I NX 


0433 


0426 


4C 


3F 02 




JMP PLT 


0434 


0429 










0435 


0429 






i 




0436 


0429 






! 




0437 


0429 






» 




0438 


0429 


86 




L243 


« BYTE $86,' 


0438 


04 2A 


28 


46 






0438 


042F 


A9 








0439 


0430 


F9 


a o 

03 




.WORD L214 


0440 


0432 


o. /. 
J4 


A/. 

U4 


Ot 1 T \TT"t 

Jrr IND 


• WORD *+z 


0441 


0434 


A O 

Ay 


no 




LDA IfZ 


0442 


0436 


on 


A/. AO. 
U4 UJ 




TCTJ CT7TITD 


0443 


0439 


oo 






biA AoAVL 


0444 


043B 


AO 


on 


T 9 A Q 


t nv #n 


0445 


043D 


R1 


Aft 




Li .LI A v Pi / f I 


0446 


043F 




Aft 
AO 




JLUK (.rJ-rZ J | * 


0447 


0441 


OQ 


11? 




AND #$3F 


0448 


0443 


DU 


2D 




BNE L281 


0449 


0445 


C8 




TIC/ 

L254 


INY 


0450 


0446 


Bl 


A6 




LDA (N),Y 


0451 


0448 


51 


A8 




EOR (N+2),Y 


0452 


04 4A 


OA 






ASL A 


0453 


044B 


DO 


23 




BNE L280 


0454 


04 4D 


90 


F6 




BCC L254 


0455 


044F 


A6 


B5 




LDX XSAVE 


0456 


0451 


CA 






DEX 


0457 


0452 


CA 






DEX 


0458 


0453 


CA 






DEX 


0459 


0454 


CA 






DEX 


0460 


0455 


18 






CLC 



; LINK TO I 



; exit true with converted value 



; exit false for bad conversion 
(FIND) 

SCREEN 19 LINE 1 



LINK TO DIGIT 



fig-FORTH for 6502, Rel 1.1 
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LINE 


it LOC 




CODE 


T T Kit? 




0461 


0456 


98 






TYA 


0462 


0457 


69 


05 




ADC tfD 


0463 


0459 


65 


A6 




ADC N 


0464 


045B 


95 


02 




STA 2,X 


0465 


045D 


AO 


00 




LDY 00 


0466 


045F 


98 






TYA 


0467 


0460 


65 


A7 




ADC N+l 


0468 


0462 


95 


03 




STA 3,X 


0469 


0464 


94 


01 




STY 1,X 


0470 


0466 


Bl 


A6 




LDA (N),Y 


0471 


0468 


95 


00 




STA 0,X 


0472 


04 6A 


A9 


01 




LDA n 


0473 


046C 


48 






PHA 


0474 


046D 


4C 


3D 02 




JMP PUSH 


0475 


0470 


BO 


05 


L280 


BCS L284 


04 76 


0472 


C8 




L281 


I NY 


0477 


0473 


Bl 


A6 




LDA (N),Y 


0478 


0475 


10 


FB 




BPL L281 


0479 


0477 


C8 




L284 


INY 


0480 


0478 


Bl 


A6 




LDA (N),Y 


0481 


047A 


AA 






TAX 


0482 


047B 


C8 






INY 


0483 


04 7C 


Bl 


A6 




LDA (N),Y 


0484 


047E 


85 A7 




STA N+l 


0485 


0480 


86 


A6 




STX N 


0486 


0482 


05 


A6 




ORA N 


0487 


0484 


DO 


B5 




BNE L249 


0488 


0486 


A6 


B5 




LDX XSAVE 


0489 


0488 


A9 


00 




LDA #0 


0490 


048A 


48 






PHA 


0491 


048B 


4C 


3D 02 




JMP PUSH exit false upon reading null 


0492 


048E 










0493 


048E 






* 
> 


ENCLOSE 


0494 


048E 






• 
> 


SCREEN 20 LINE 1 


0495 


048E 






■ 

J 




0496 


048E 


87 




L301 


.BYTE $87,'ENCL0S',$C5 


0496 


048F 


45 


4E 






0496 


0495 


C5 








0497 


0496 


29 


04 




. WORD L243 ; LINK TO (FIND) 


0498 


0493 


9A 


04 


ENCL 


. WORD *+2 


0499 


04 9A 


A9 


02 




LDA $2 


0500 


049C 


20 


04 03 




JSR SETUP 


0501 


04 9F 


8A 






TXA 


0502 


04A0 


38 






SEC 


0503 


04A1 


E9 


08 




SBC if a 


0504 


04A3 


AA 






TAX 


0505 


04A4 


94 


03 




STY 3,X 


0506 


04A6 


94 


01 




STY 1,X 


0507 


04A8 


88 






DEY 


0508 


04A9 


C8 




L313 


INY 


0509 


04AA 


Bl 


A8 




LDA (N+2),Y 


0510 


04AC 


C5 


A6 




CMP N 


0511 


04AE 


FO 


F9 




BEQ L313 


0512 


0430 


94 


04 




STY 4,X 


0513 


04B2 


Bl 


AS 


L318 


LDA (N+2),Y 



fig-FORTH for 6502, Rel 1.1 
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LINE 


U LOC 




CODE 


0514 


04B4 


DO 


OE 




0515 


04B6 


94 


02 




0516 


04B8 


94 


00 




0517 


04BA 


98 






0518 


04BB 


D5 


04 




0519 


04BD 


DO 


02 




0520 


04BF 


F6 


02 




0521 


04C1 


4C 


44 


02 


0522 


04C4 


94 


02 




0523 


04C6 


C8 






0524 


04C7 


C5 


A6 




0525 


04C9 


DO 


E7 




0526 


04CB 


94 


00 




0527 


04CD 


4C 


44 


02 


0528 


04D0 








0529 


04DO 








0530 


04D0 








0531 


04D0 








0532 


04D0 


84 






0532 


04D1 


45 


4D 


49 


0532 


04D4 


D4 






0533 


04D5 


8E 


04 




0534 


04D7 


Fl 


15 




0535 


04D9 








0536 


04D9 








0537 


04D9 








0538 


04D9 








0539 


04D9 


83 






0539 


04DA 


4B 


45 




0539 


04DC 


D9 






0540 


04DD 


DO 


04 




0541 


04DF 


OC 


16 




0542 


04E1 








0543 


04E1 








0544 


04E1 








0545 


04E1 








0546 


04E1 


89 






0546 


04E2 


3F 






0546 


04EA 


CC 






0547 


04EB 


D9 


04 




0548 


04ED 


16 


16 




0549 


04EF 








0550 


04EF 








0551 


04EF 








0552 


04EF 








0553 


04EF 


82 






0553 


O4F0 


43 






0553 


04F1 


D2 






0554 


04F2 


El 


04 




0555 


04F4 


21 


16 




0556 


04F6 








0557 


04F6 








0558 


04F6 








0559 


04F6 








0560 


04F6 


85 







LINE 



BNE 


L327 


STY 


2,X 


STY 


0,X 


TYA 




CMP 


4,X 


BNE 


L326 


INC 


2,X 


JMP 


NEXT 


STY 


2,X 


I NY 




CMP 


N 


BNE 


L318 


STY 


0,X 


JMP 


NEXT 



\ EMIT 

; SCREEN 21 LINE 5 

L337 . BYTE $84, 'EMI' , $D4 



.WORD L301 ; LINK TO ENCLOSE 
EMIT .WORD XEMIT Vector to code for EMIT 

\ KEY 

; SCREEN 21 LINE 7 

L344 .BYTE $83,'KE',$D9 



.WORD L337 ; LINK TO EMIT 

KEY .WORD XKEY Vector to code for KEY 

> 

; ? TERMINAL 

; SCREEN 21 LINE 9 

■ 

L351 . BYTE $89 , * 7TERMINA' , $CC 



QTERM 



.WORD L344 
. WORD XQTER 



; LINK TO KEY 

Vector to code for ? TERMINA 



CR 



SCREEN 21 LINE 11 



L358 . BYTE $82,'C',$D2 



.WORD L351 ; LINK TO ? TERMINAL 

CR .WORD XCR Vector to code for CR 

■ 

\ CMOVE 

; SCREEN 22 LINE 1 

L365 .BYTE $85, 'CM0V' , $C5 



fig-FORTH for 6502, Rel 1.1 
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LINE 


it LOC 




CODE 


T T VTT? 

LINE 




0560 


04F7 


43 


4D 








r J->b'J 


U4r d 


r> ^ 
LO 










U jo I 




LI 


04 






« wuruJ ljjo 




U4r r. 


UU 


05 




Lrluv L 


* WUKJJ w tz 


U jo J 


U jUU 


a a 

Ay 


03 








0564 


0502 


2u 


04 


03 




tod CTTTTTD 


0565 


0505 


C4 


A6 




L J /U 


Iri N 




U / 


Dlr 


07 






dJXe. Lj/j 


0567 


0509 


C6 


A7 






DLL N+l 


0568 


050B 


10 


03 






BPL L375 


0569 


050D 


4C 


44 


02 




JMP NEXT 


0570 


0510 


Bl 


AA 




L375 


LDA (N+4),Y 


0571 


0512 


91 


A8 






STA (N+2),Y 


0572 


0514 


C8 








INY 


0573 


0515 


DO 


EE 






bit is t *!i™wrt 

BNE L370 


0574 


0517 


E6 


AB 






INC N+5 


0575 


0519 


E6 


A9 






INC N+3 


0576 


05 IB 


4C 


05 


05 




JMP L370 


0577 


051E 








« 




0578 


051E 








i 




0579 


051E 








s 




0580 


051E 








i 




0581 


051E 


82 






L386 


.BYTE $82, '1 


0581 


051F 


55 










0581 


0520 


AA 










05S2 


0521 


F6 


04 






.WORD L365 


0583 


0523 


25 


05 




u SI AR 


• WORD *+2 


0584 


0525 


ft c 

B5 


02 






LDA 2,X 


0585 


0527 


85 


A6 






STA ft 








02 






C TV 1 V 

E» 1 1 L j A 


(Jits / 


neon 




03 






L JA j j A 


VJ 00 




OJ 


A7 






Jin i i t 1 




LOZr 




03 






C TV *i Y 


0590 


053 1 


AO 


10 






LDY £ lb 


0591 


0533 


16 


02 




L396 


ASL 2 y 7i 


0592 


0535 


36 


03 






ROL 3>X 


0593 


05 3 7 


36 


00 






ROL 0,X 


0594 


0539 


36 


01 






ROL 1 ,X 


0595 


05 3B 


90 


13 






BCC L411 


0596 


05 3D 


18 








CLC 


0597 


05 3E 


A5 


A6 






LDA N 


0598 


0540 


75 


02 






ADC 2,X 


0599 


0542 


95 


02 






STA 2,X 


0600 


0544 


A5 


A7 






LDA N+l 


0601 


0546 


75 


03 






ADC 3,X 


0602 


0548 


95 


03 






STA 3,X 


0603 


054A 


A9 


00 






LDA IFO 


0604 


054C 


75 


00 






ADC 0,X 


0605 


054E 


95 


00 






STA 0,X 


0606 


0550 


88 






L411 


DEY 


0607 


0551 


DO 


E0 






BNE L396 


0608 


0553 


4C 


44 


02 




JMP NEXT 


0609 


0556 












0610 


0556 












0611 


0556 













LINK TO CR 



U* 

SCREEN 2 3 LINE 



LINK TO CMOVE 



for 16 bits 



U/ 

SCREEN 24 LINE 



f ig-FORTH for 6502, Eel 1.1 PAGE 0014 



LINE 


# LOG 




CODE 


LINE 




0612 


0556 






* 




0613 


0556 


82 




L418 


.BYTE $82,' 


0613 


0557 


55 








0613 


0558 


AF 








0614 


0559 


IE 


05 




.WORD L386 


0615 


05 5B 


5D 


05 


USLAS 


.WORD *+2 


0616 


055D 


B5 


04 




LDA 4»X 


0617 


05 5 F 


B4 


02 




LDY 2,X 


0618 


0561 


94 


04 




STY 4,X 


0619 


0563 


OA 






ASL A 


0620 


0564 


95 


02 




STA 2,X 


0621 


0566 


B5 


05 




LDA 5,X 


0622 


0568 


B4 


03 




LDY 3,X 


0623 


056A 


94 


05 




STY 5,X 


0624 


056C 


2A 






ROL A 


0625 


05 6D 


95 


03 




STA 3,X 


0626 


056F 


A9 


10 




LDA #16 


0627 


0571 


85 


A6 




STA N 


0628 


0573 


36 


04 


L433 


ROL 4,X 


0629 


0575 


36 


05 




ROL 5,X 


0630 


0577 


38 






SEC 


0631 


0578 


B5 


04 




LDA 4,X 


0632 


057A 


F5 


00 




SBC 0,X 


0633 


05 7C 


AS 






TAY 


0634 


057D 


B5 


05 




LDA 5,X 


0635 


057F 


F5 


01 




SBC 1,X 


0636 


0581 


90 


04 




BCC L444 


0637 


0583 


94 


04 




STY 4,X 


0638 


0585 


95 


05 




STA 5,X 


0639 


0587 


36 


02 


L444 


ROL 2,X 


0640 


0589 


36 


03 




ROL 3,X 


0641 


0583 


C6 


A6 




DEC N 


0642 


058D 


DO 


E4 




BNE L433 


0643 


058F 


4C 


EE 03 




JMP POP 


0644 


0592 






. 




0645 


0592 






• 




0646 


0592 






> 




0647 


0592 






■ 

> 




0648 


0592 


83 




L453 


.BYTE $83, 


0648 


0593 


41 


4E 






0648 


0595 


C4 








0649 


0596 


56 


05 




.WORD L418 


0650 


0598 


9A 


05 


ANDD 


.WORD *+2 


0651 


05 9A 


B5 


00 




LDA 0,X 


0652 


059C 


35 


02 




AND 2,X 


0653 


05 9E 


48 






PHA 


0654 


05 9F 


B5 


01 




LDA 1,X 


0655 


05A1 


35 


03 




AND 3,X 


0656 


05A3 










0657 


05A3 


E8 




BINARY 


INX 


0658 


05A4 


E8 






INX 


0659 


05A5 


4C 


3F 02 




JMP PUT 


0660 


05A8 










0661 


05A8 






• 
> 




0662 


05A8 






* 
> 





LINK TO U* 



for 16 bits 



AND 

SCREEN 25 LINE 2 



LINK TO U/ 



OR 

SCREEN 25 LINE 



flg-FORTH for 6502, Rel l.X 



PAGE 0015 



LINE 


# LOG 




CODE 


LINE 




0663 


05A8 








* 




0664 


05A8 


82 






L469 


. BYTE $82,'0*,$D2 


0664 


05A9 


4F 










0664 


05AA 


D2 










0665 


05AB 


92 


05 






.WORD L453 


0666 


05AD 


AF 


05 




OR 


.WORD *+2 


0667 


05AF 


B5 


00 






LDA 0,X 


0668 


05B1 


15 


02 






ORA 2,X 


0669 


05B3 


48 








PHA 




\J J SJ *+ 


Lf -J 


01 






LDA 1 X 


0671 




15 


03 






ORA 3 X 






F8 








I NX 


OA 7 

\t V f -J 


05B9 










INX 


0674 


05BA 


4C 


3F 


02 




JMP PUT 


0675 


05BD 












0676 


05BD 












0677 


05BD 












0678 


05BD 












0679 


05BD 


83 






L484 


.BYTE S83,'XO',$D2 


0679 


05BE 


58 


4F 








0679 


O5C0 


D2 










0680 


05C1 


A8 


05 






. WORD L469 


0681 


05C3 


C5 


05 




X0R 


.WORD *+2 


0682 


05C5 


B5 


00 






LDA 0,X 


0683 


05C7 


55 


02 






EOR 2,X 


0684 


05C9 


48 








PHA 


0685 


05CA 


B5 


01 






LDA 1,X 


0686 


05CC 


55 


03 






EOR 3.X 


0687 


05CE 


E8 








INX 


0688 


05CF 


E8 








INX 


0689 


05D0 


4C 


3F 


02 




JMP PUT 


0690 


05D3 












0691 


05D3 












0692 


05D3 












0693 


05D3 












0694 


05D3 


83 






L499 


. BYTE $83,'SP',$C0 


0694 


05D4 


53 


50 








0694 


05D6 


CO 










0695 


05D7 


BD 


05 






. WORD L484 


0696 


05D9 


DB 


05 




SPAT 


.WORD *+2 


0697 


05DB 


8A 








TXA 


0698 


05DC 








• 
» 




0699 


05DC 


48 






PUSH0A PHA 


0700 


05DD 


A9 


00 






LDA #0 


0701 


05DF 


4C 


3D 


02 




JMP PUSH 


0702 


05E2 












0703 


05E2 












0704 


05E2 












0705 


05E2 












0706 


05E2 


83 






L511 


. BYTE $83,'SP',$A1 


0706 


05E3 


53 


50 








0706 


05E5 


Al 










0707 


05E6 


D3 


05 






.WORD L499 


0708 


OSES 


EA 


05 




SPSTO 


.WORD *+2 


0709 


05 EA 


AO 


06 






LDY #6 



LINK TO AND 



XOR 

SCREEN 25 LINE 11 



; LINK TO OR 



SP@ 

SCREEN 26 LINE 1 



LINK TO XOR 



SPI 

SCREEN 26 LINE 5 



; LINK TO SP@ 
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LINE 


it LOC 




CODE 


LIKE 






0710 


05EC 


Bl 


B3 






LDA (UP),Y 


load data stack pointer (X-reg) 


0711 


05EE 


AA 








TAX 


silent user variable SO. 


mil 

0712 


05EF 


4C 


44 


02 




JHP NEXT 




0713 


05F2 














0714 


05F2 








• 




RP! 


0715 


05F2 








• 




SCREEN 26 LINE 8 


0716 


05F2 








i 






0717 


05F2 


83 






L522 


.BYTE $83,'RP',$A1 


0717 


05F3 


52 


50 










0717 


05F5 


Al 












0718 


05F6 


E2 


05 






.WORD L511 


; LINK TO SP! 


0719 


05F8 


FA 


05 




RPSTO 


• WORD *+2 




0720 


05FA 


86 


B5 






STX XSAVE 


load return stack pointer 


0721 


05FC 


AO 


08 






LDY #8 


(machine stack pointer) from 


0722 


05FE 


Bl 


B3 






LDA (UP),Y 


silent user variable R0. 


0723 


0600 


AA 








TAX 




0724 


0601 


9A 








TXS 




0725 


0602 


A6 


B5 






LDX XSAVE 




0726 


0604 


4C 


44 


02 




JMP NEXT 




0727 


0607 














0728 


0607 








• 




;s 


0729 


0607 












SCREEN 26 LINE 12 


0730 


0607 














0731 


0607 


82 






L536 


.BYTE $82/ 


;\$D3 


0731 


0608 


1 1"1 

3B 












U / 31 


uouy 


D J 












0/32 


060A 


F2 


05 






.WORD L522 


; LINK TO RP! 


0733 


060C 


0E 


06 




SEMIS 


. WORD *+2 




0734 


06 0E 


68 








PLA 




0735 


060F 


85 


AE 






STA IP 




0736 


06 1 1 


68 








PLA 




0737 


0612 


85 


AF 






STA IP+1 




0738 


0614 


4C 


44 


02 




JMP NEXT 




0739 


0617 








! 






0740 


0617 








; 




LEAVE 


0741 


0617 








; 




SCREEN 2 7 LINE 1 


0742 


0617 








; 






0743 


0617 


85 






L548 


. BYTE $85,'LEAV',$C5 


0743 


0618 


4C 


45 










0743 


061C 


C5 












0744 


061D 


07 


06 






. WORD L536 


; LINK TO ;S 


0745 


061F 


21 


06 




LEAVE 


.WORD *+2 




0746 


0621 


86 


B5 






STX XSAVE 




0747 


0623 


BA 








TSX 




0748 


0624 


BD 


01 


01 




LDA $101, X 




0749 


0627 


9D 


03 


01 




STA $103, X 




0750 


06 2A 


BD 


02 


01 




LDA $ 102.X 




n 7 m 


UD ZrU 




04 


01 




STA $104, X 




0752 


0630 


A6 


B5 






LDX XSAVE 




0753 


0632 


4C 


44 


02 




JMP NEXT 




0754 


0635 














0755 


0635 












>R 


0756 


0635 












SCREEN 27 LINE 5 


0757 


0635 














0758 


0635 


82 






L563 


.BYTE $82,' 


>',$D2 



fig-FORTH for 6502, Rel 1.1 
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T TNF 


9 LOC 




CODE 




LINE 








0636 


3E 














0758 


0637 


D2 














0759 


0638 


17 


06 








•WORD L548 


; LINK TO LEAVE 


0760 


06 3A 


3C 


06 




TOR 


. WORD *+2 




0761 


06 3C 


B5 


01 








LDA 1,X 


move high byte 


0762 


063E 


48 










PHA 




0763 


063F 


B5 


00 








LDA 0,X 


then low byte 


0764 


0641 


48 










PHA 


to return stack 


0765 


0642 


E8 










INX 




0766 


0643 


E8 










I NX 


popping off data stack 


0767 


0644 


4C 


44 


02 






JMP NEXT 




0768 


0647 
















0769 


0647 














R> 


0770 


0647 














SCREEN 27 LINE 


n 7 7 1 


0647 
















fl 7 7 7 


Cif>&7 

UDM / 


Oi 






L577 


-BYTE $82,'R',$BE 


V / 1 1 


n 1 Q 
















f\~J "7 O 

U / /z 


uo4y 


H T7 














n 7 7 1 




JJ 


06 








.WORD L563 


; LINK TO >R 


(MIL 






06 




RFR0M 


.WORD *+2 




("177 ^ 














DEX 


make room on data stack 




UD4J 












DEX 




(1777 


UUJU 












PLA 


high byte 


n77ft 

U/JO 


06 s i 


05 


00 








STA 0,X 




n 7 7Q 


I/O JJ 


68 










FLA 


then low byte 


0780 


06 54 
\j \i j *+ 


95 


01 








STA 1,X 


restored to data stack 


078 1 


0656 


4C 


44 


02 






JMP NEXT 




078? 


















0781 


0659 














R 


0784 


0659 














SCREEN 27 LINE 


078 S 


















0786 


0659 


81 






L591 


. BYTE $81,$D2 


0786 


06 5A 


D2 














07S7 


0653 


47 


06 








. WORD L577 


; LINK TO R> 


0788 


065D 


5F 


06 




R 


•WORD *+2 




0789 


065F 


86 


B5 








STX XSAVE 




0790 


0661 


BA 










TSX 


address return stack. 


0791 


0662 


BD 


01 


01 






LDA $101, X 


copy bottom value 


0792 


0665 


48 










PHA 


to data stack. 


0793 


0666 


BD 


02 


01 






LDA $102, X 




0794 


0669 


A6 


B5 








LDX XSAVE 




07 Q 5 


066T1 


4f 


3D 


02 






JMP PUSH 




0796 


066E 








■ 






07Q7 


066F 








* 
* 




0- 












* 




SCREEN 28 LINE 




UdOIj 








* 






orod 


\J U 'JILr 


8? 






L605 


-BYTE $82,'0',$BD 


0800 


066F 


30 














0800 


0670 


BD 














0801 


0671 


59 


06 








.WORD L591 


; LINK TO R 


0802 


0673 


75 


06 




ZEQU 


.WORD *+2 




0803 


0675 


B5 


00 








LDA 0,X 




0804 


0677 


15 


01 








ORA 1,X 




0805 


0679 


94 


01 








STY l.X 




0806 


067B 


DO 


01 








BNE L613 
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LINE 


iff LOG 




CODE 


LINE 




0807 


06 7D 


C8 








INY 


0808 


067E 


94 


00 




L613 


STY 0,X 


0809 


0680 


4C 


44 


02 




JMF NEXT 


0810 


0683 








* 




0811 


0683 












0812 


0683 












0813 


0683 












08L4 


0683 


82 






L619 


• BYTE $82/0' 


0814 


0684 


30 










0814 


0685 


BC 










0815 


0686 


6E 


06 






.WORD L605 


0816 


0688 


8A 


06 




ZLESS 


. WORD *+2 


0817 


068A 


16 


01 






ASL 1»X 


0818 


068C 


98 








TYA 


0819 


068D 


2A 








ROL A 


0820 


068E 


94 


01 






STY 1,X 


0821 


0690 


95 


00 






STA 0,X 


0822 


0692 


4C 


44 


02 




JMP NEXT 


0823 


0695 








■ 




0824 


0695 








• 




0825 


0695 








; 




0826 


0695 












0827 


0695 












0828 


0695 


81 






L632 


.BYTE $81,$AB 


0828 


0696 


AB 










0829 


0697 


83 


06 






.WORD L619 


0830 


0699 


9B 


06 




PLUS 


.WORD *+2 


0831 


069B 


18 








CLC 


0832 


069C 


B5 


00 






LDA O t X 


0833 


069E 


75 


02 






ADC 2,X 


0834 


06A0 


95 


02 






STA 2,X 


0835 


06A2 


B5 


01 






LDA 1,X 


0836 


06A4 


75 


03 






ADC 3,X 


0837 


06A6 


95 


03 






STA 3,X 


0838 


06A8 


E8 








I NX 


0839 


06A9 


E8 








INX 


0840 


06AA 


4C 


44 






JMF NEXT 


0841 


06AD 












0842 


06 AD 








i 




0843 


06AD 








■ 




0844 


06AD 








* 




0845 


06AD 


82 






L649 


.BYTE $82, 'D' 


0845 


06AE 


44 










0845 


06AF 


AB 










0846 


06B0 


95 


06 






. WORD L632 


0847 


06B2 


B4 


UD 




DPLOS 


.WORD *+2 


0848 


06B4 


18 








CLC 


0849 


06B5 


B5 


02 






LDA 2,X 


0850 


06B7 


75 


06 






ADC 6,X 


0851 


06B9 


95 


06 






STA 6,X 


0852 


06BB 


B5 


03 






LDA 3,X 


0853 


06BD 


75 


07 






ADC 7,X 


0854 


06BF 


95 


07 






STA 7,X 


0855 


06C1 


B5 


00 






LDA 0,X 


0856 


06C3 


75 


04 






ADC 4,X 



0< 

SCREEN 28 LINE 6 
; LINK TO 0- 

+ 

SCREEN 29 LINE 1 
; LINK TO V-ADJ 

D+ 

SCREEN 29 LINE 4 
; LINK TO + 
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u 111 Er 






CODE 


LINE 




n r s i 


ArV"i 


Q S 
7 J 






t;TA 4 X 


UO Do 


UOVj / 




U 1 




T HA 1 X 
LUn J. | a 


Uo jy 


a tpo 


7 S 


AS 




Anr s x 


0860 


06CB 


A C 


A ^ 
0> 




C T A ^ V 


0861 


06CD 


AC 


op a 'a 
EC 03 




Tim 'DA'DTT.TA 


0862 


06D0 






p 




0863 


a^ti a 










Oofa4 


A Cn A 






» 




0865 


06DO 






! 




n ft .■ c 


A Ann 


o3 




t A7f> 




A Q A A 

0866 


n An 1 


An 


4y 






Uoob 


JblJ.} 


n T 
Uj 








uoo / 


Af,nA 

U 


An 


nt 
Ut> 






nCAft 

USDS 


UuUo 


L/A 


uo 






uooy 


AAA A 


">ft 

JO 






err 


Uo/U 


UOLlD 


Q, ft 

y o 






1 IA 


n ft 7 1 

U O / 1 




r j 


nn 
uu 






UB / i. 


a Antr 


yj 


An 




c T A A Y 


n ft 7 *\ 


A ATT A 


ft 

y o 






TVA 




PiSF 1 




U 1 






no 7 


UOt J 


y 3 


Ul 




c;ta i x 


UO / 


UDLJ 


^u 






TMP NPYT 


ar 7 7 
uo / / 












Uo/C 








| 




ar 7 q 
uo / y 








\ 




ar s?n 
uoou 








\ 




AR G T 

Una 1 


A Atrft 


ft A 

Ob 




TAOS 

LOO J 


* D 1 L & 9 O O j J 


A Q ft 1 

Uoo 1 


A A t n 

□buy 










0881 


06EE 


D3 








0882 


06EF 


DO 


A £ 

UD 




unDn 7 t7A 


0883 


06F1 


F3 


A£ 

06 


DMINU 


nrtnn ill 


n ft ft / 


U6F J 


Jo 






err 




A A 1? A 


98 






TV A 

1 XA 


0886 


06F5 


F5 


02 




our *> v 


0887 


06F7 


A C 

95 


AO 




CTA ^> V 
&IA £,A 


0888 


a £ n 

udf y 


o ft 

ye 






TV A 


A ft Q A 


A ATT A 

Ubr A 


r j 


n i 

U J 






flRQO 

\J <JJ\J 




95 


03 




STA 3,X 


Oft.9 1 


OfiFF 


4C 


DB 06 




JMF MINUS+3 


nRQ 7 


U r \J Jl 










DRQ1 
r u .* 


0701 






* 




U O J H 


H7n l 










Uojj 












0896 


701 


84 




L700 


.BYTE $84, '1 


nftQ6 




4F 


56 45 






nftQ6 




D? 
— ' j- 








fiftQ 7 


070A 








•UORD L685 


0898 


0708 


OA 


07 


OVER 


.WORD *+2 


0899 


07 OA 


B5 


02 




LDA 2,X 


0900 


070C 


48 






PHA 


0901 


070D 


B5 


03 




LDA 3,X 


0902 


070F 


AC 


3D 02 




JMP PUSH 


0903 


0712 






• 




0904 


0712 






* 




0905 


0712 






> 





MINUS 

SCREEN 29 LINE 9 



LINK TO D+ 



DMINU S 

SCREEN 29 LINE 12 



LINK TO MINUS 



OVER 

SCREEN 30 LINE 1 



LINK TO DMINUS 



DROP 

SCREEN 30 LINE 4 
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LINE 


# LOC 




CODE 




LINE 






0906 


0712 






■ 

> 








0907 


0712 


84 




L7U 


.BUTE $84,'DRO',$D0 


0907 


0713 


44 


52 4F 










0907 


0716 


DO 












0908 


0717 


01 


07 






.WORD L700 


; LINK TO OVER 


0909 


0719 


EE 


03 


DROP 


. WORD POP 




0910 


07 IB 














0911 


071B 












SWAP 


0912 


07 IB 












SCREEN 30 LINE 8 


0913 


071B 














0914 


071B 


84 




L718 


. BYTE $84, 'SWA',$D0 


0914 


071C 


53 


57 41 










0914 


071F 


DO 












0915 


0720 


12 


07 






. WORD L711 


; LINK TO DROP 


0916 


0722 


24 


07 


SWAP 


.WORD *+2 




0917 


0724 


B5 


02 






LDA 2,X 




0918 


0726 


48 








PHA 




0919 


0727 


B5 


00 






LDA 0,X 




0920 


0729 


95 


02 






STA 2,X 




0921 


072B 


B5 


03 






LDA 3,X 




0922 


072D 


B4 


01 






LDY 1,X 




0923 


07 2F 


94 


03 






STY 3.X 




0924 


0731 


4C 


3F 02 






JMP PUT 




0925 


0734 














0926 


0734 












DUP 


0927 


0734 












SCREEN 30 LINE 12 


0928 


0734 














0929 


0734 


83 




L733 


.BYTE $83,'DU',$D0 


0929 


0735 


44 


55 










0929 


0737 


DO 












0930 


0738 


IB 


07 






.WORD L718 


; LINK TO SWAP 


0931 


073A 


3C 


07 


DUP 


.WORD *+2 




0932 


073C 


B5 


00 






LDA 0,X 




0933 


073E 


48 








PHA 




0934 


07 3F 


B5 


01 






LDA 1,X 




0935 


0741 


4C 


3D 02 






JMP PUSH 




0936 


0744 














0937 


0744 












+ 1 


0938 


0744 












SCREEN 31 LINE 2 


0939 


0744 














0940 


0744 


82 




L744 


.BYTE $82,' 


+',$A1 


0940 


0745 


2B 












0940 


0746 


Al 












0941 


0747 


34 


07 






.WORD L733 


; LINK TO DUP 


0942 


0749 


4B 


07 


PS TOR 


.WORD *+2 




0943 


07 4B 


18 








CLC 




0944 


074C 


Al 


00 






LDA (0,X) 


fetch 16-bit value addressed 


0945 


074E 


75 


02 






ADC 2,X 


by bottom of stack, adding to 


0946 


0750 


81 


00 






STA (0,X) 


second item on stack, and 


0947 


0752 


F6 


00 






INC 0,X 


return to memory. 


0948 


0754 


DO 


02 






BNE L754 




0949 


0756 


F6 


01 






INC 1,X 




0950 


0758 


Al 


00 


L754 


LDA (0,X) 




0951 


075A 


75 


03 






ADC 3.X 




0952 


075C 


81 


00 






STA (0,X) 
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1 TKTT7 

LiWr, 


ii t rvr 

ff L.UL. 




CODE 




LINE 




uy 3 3 


U IDSL 


fU 


EC 


03 






imp PfiPTUn 


n Q R A 

uy jh 


U / 1 














uy 33 


n 7 a i 

U / 01 












TfiflCZT V 


uy 3D 


U / 1 












^PRFFM 11 T TMP 7 


u y 3 / 


U/ol 














no c; Q 

V7JO 


n 76 1 


RA 






L762 


t Dl l£i -pow j i Uvwli j J 


nnco 

uy 3 8 


n7 A 7 
U f Z 


34 


4F 










nnca 

uy 3tj 


n 7 A 7 
U / / 


U3 














f176ft 


44 


07 








.WORD L744 ! LINK TO + 1 


u y o u 


U r Oii 




07 




T0GGL 


* WORD *+2 


asm 




A 1 

/V J. 


02 








T DA r *} Y ^ rnmn IpmATii" S'TI"^ i ti mAmnrv aHHtp^^ 


uy o z 


n 7 att 


e; e; 
J 3 


00 












PI7 7H 
U / / u 


o 1 


02 








O J, \ y 7 UtL UULLUU1 \JJL 3 LaL^t 


U 3 O^t 


D777 




EC 


03 






JMP POPTWO 




n7 7 s 














noA a 

U 7U 


n7 7 s 

U / / 3 















uy D / 


U / /3 












s^,s\tiSLss Liinr. 1 


0968 


07 7 D 














0969 










L773 


. BYTE §81 , §CU 


0969 


ri "7 "7 £1 

0776 


CD 












0970 


0777 


61 


07 








.WORD L762 J LINK TO TOGGLE 


0971 


0779 


7B 


07 




AT 


. WORD *+2 


0972 


077B 


Al 


00 








LDA (0,X) 


0973 


07 7D 


48 










PHA 


0974 


/I ~T ~7 T7 

07 7E 


F 6 


00 








INC U # X 


uy / j 


U/oU 


uu 


02 








nw p T 7 A 1 


no 7A 




r O 


01 










no 7 7 

uy / / 


n 7 s/i 


A 1 


00 




L781 




OQ 7ft 




AC 


3F 


02 






TMP PT IT 


n Q7Q 

u y / y 


n 7rq 
















U / O J 














098 1 


0789 












SCREEN 32 LINE 5 


no, ft? 


078Q 














uy o j 


n 7 ft o 
u / oy 


(17 






L787 




uy o j 


n 7 BA 

U / oA 














uyo j 


n 7 fin 


pn 

L»U 












no /, 

uy ot 


n t Of 
U /OL 


7 ^ 


07 








rjHTJn T 771 » T TWV TH 


uyti3 


n 7 qt? 


o n 

y u 


07 




CAT 




u y iso 


n 7 on 
u / y u 


A 1 

Al 


00 








Liiii\ ictcn oyte aaaiTtiaiTJea uy DutLum 


ri n o ^ 




y3 


00 








olA u,a or scacK lo scacR, zeroing 


n n o o 
0988 


0794 


94 


01 








bii i,a tne nign Dyne» 


rtrt O ft 

0989 


0796 


4C 


44 


02 






JMr NbAl 


0990 


0799 














uy y i 


fl 7 QQ 

u / y y 














uy y / 


H7 QQ 

u / y y 














n n n t 

099 3 


A7rt(l 

o /yy 














uyy^ 


n7 OQ 
u / y y 


SI 

o 1 






L798 




0994 


07 9A 


Al 












0995 


079B 


89 


07 








.WORD L787 ; LINK TO C@ 


0996 


079D 


9F 


07 




STORE 


.WORD *+2 


0997 


079F 


B5 


02 








LDA 2,X 


0998 


07A1 


81 


00 








STA (0»X) store second 16-blt value on stack 


0999 


07A3 


F6 


00 








INC 0,X to memory as addresses by 


1000 


07A5 


DO 


02 








BNE L806 


1001 


07A7 


F6 


01 








INC 1,X bottom of stack. 



fig-FORTH for 6502, Rel 1.1 
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LINE 


* LOC 




CODE 


LINE 




1002 


07A9 


B5 


m 




L806 


LDA 3,X 


1003 


07AB 


81 


nn 
uu 






STA (0,X) 


1004 


07 AD 


4C 




n i 




JMP POPTWO 


1005 


07B0 








; 




1006 


07B0 








; 




1007 


07BO 








; 




1008 


07B0 








; 




1009 


07BO 


82 






L813 


.BYTE $82, 'C 


1009 


07B1 


43 










1009 


07B2 


Al 










1010 


7B3 


99 








.WORD L798 


1011 


07B5 


B7 


<\ 7 




CST0R 


. WORD *+2 


1012 


07B7 


B5 


Ui 






LDA 2,X 


1013 


07B9 


81 


nn 
uu 






STA (0,X) 


1014 


07BB 


4C 


vo 






JMP POPTWO 


1015 


07BE 








; 




1016 


07BE 








; 




1017 


07BE 








; 




1018 


07BE 








; 




1019 


07BE 


CI 






L823 


.BYTE $C1,$B 


1019 


07BF 


BA 










1020 


07CO 


BO 


H7 

u / 






.WORD L813 


1021 


07C2 


D6 


AT 
V 1 




COLON 


. WORD DOCOL 


1022 


07C4 


42 


UD 






•WORD QEXEC 


1023 


07C6 


FE 


UA 






.WORD SCSP 


1024 


07C8 


58 


no 
u? 






•WORD CURR 


1025 


07CA 


79 


n 7 
u / 






. WORD AT 


1026 


07CC 


4B 








.WORD CON 


1027 


07CE 


9D 


u / 






.WORD STORE 


1028 


07D0 


36 


i n 






. WORD CREAT 


1029 


07D2 


C3 


UD 






. WORD RBRAC 


1030 


07D4 


12 


or 






.WORD PS COD 


1031 


07D6 












1032 


07D6 


A5 






DOCOL 


LDA IP+1 


1033 


07D8 


48 








PHA 


1034 


07D9 


A3 


AE 






LDA IP 


1035 


07DB 


48 








PHA 


1036 


07DC 


20 


BE 


02 




JSR TCOLON 


1037 


07DF 


18 








CLC 


1038 


07E0 


A5 


Bl 






LDA W 


1039 


07E2 


69 


0? 






adc n 


1040 


07E4 


85 


4T 






STA IP 


1041 


07E6 


98 








TYA 


1042 


07E7 


65 


oL 






ADC W+l 


1043 


07E9 


85 


Ar 






STA IP+1 


1044 


07EB 


4C 


44 


02 




JMP NEXT 


1045 


07EE 








; 




1046 


07EE 












1047 


07EE 












1048 


07EE 












1049 


07EE 












1050 


07EE 


CI 






L853 


.BYTE $C1,$B 


1050 


07BF 


BB 










1051 


07F0 


BE 


07 






.WORD L823 


1052 


07F2 


D6 


07 






.WORD DOCOL 



ci 

SCREEN 32 LINE 12 



; LINK TO 1 



SCREEN 33 LINE 2 



LINK TO C! 



Mark the start of a traced ; def. 



SCREEN 33 LINE 9 



LINK TO : 



fig-FGRTH for 6502, Rel 1.1 PAGE 0023 



LINE » LOG CODE LINE 



1 A c: "J 

1053 


07F4 


6A 


0B 




* WUiuJ ytor 






U/Fo 


ire 

yr 


aid 
US 




unfin rriMP 
■ wUfSJj \f\jrur 




1 AC C 

1U J J 


07F 8 


oc 


A£ 

06 




uriRn cfmt^ 

* WUrUJ C>£jIT1jLi> 




1056 


07FA 


D7 


0B 




.WORD SMUDG 




1057 


07FC 


B5 


0B 




*WORD LB RAG 




1058 


07FE 


OC 


06 




. WORD SEMIS 




1059 


0800 








* 




1060 


0800 












1061 


0800 








; CONSTANT 




1062 


0800 








; SCREEN 34 LIKE 


1 


1063 


0800 








i 




1064 


0800 


88 






L867 .BYTE S88, CONSTAN , $D4 




1064 


0801 


43 


4F 








1064 


0808 


D4 










1065 


0809 


EE 


a ~t 

07 




1TADT* T . T TWV » 




1066 


08 0B 


D6 


a t 

07 




LUNcsl * WUKJJ I/UIAJL 




1 Uo 7 


a o ATi 


Jo 


1U 




TJATJ A rOC A T 




1 UOO 


UOUr 


Tl 1 
U 1 


UJ3 




unwri tiMTTnr: 




i n £. n 

iuoy 


usi i 


uy 


uy 




LTAT3TX nnuMA 

. WUlUJ LunnA 




i n in 


UOlj 




UL 




tjATjn pcpnn 
. wuitu ro^uu 






Uo 1 D 








i 




1072 


Vol J 


AO 


AO 








1073 


a q l 7 

081 7 


"D 1 

Bl 


D 1 

B 1 




T Till /TT\ V 

LDA ^WJ , I 




1074 


rift 1 A 

0819 


48 






Till * 

FHA 




1075 


08 1A 


C8 






I NY 




1076 


081B 


Bl 


Bl 




LDA (W),Y 




1077 


081D 


AC 


3D 


02 


JMP PUSH 




1078 


0820 












1079 


0820 








; VARIABLE 




1080 


0820 








; SCREEN 34 LINE 


5 


1081 


0820 












1082 


0820 


88 






L885 .BYTE $88 , ' VARIABL* , $C5 




1082 


0821 


56 


41 








1082 


0828 


C5 










1083 


0829 


00 


08 




.WORD L867 ; LINK TO CONSTANT 


1084 


082B 


D6 


07 




VAR .WORD D0C0L 




1085 


082D 


0B 


08 




• WORD CONST 




1086 


a o 1 t* 

082F 


1 1 
1 2 


OC 




.WORD PS COD 




1087 


0831 








* 




1088 


0831 


18 






DO VAR CLC 




1089 


0832 


A3 


Bl 




LDA W 




i uyu 


Uo 


oy 


no 
uz 




ADC #2 




i no i 
i uy i 


Uo JO 


AO 
HO 






PHA 




1 DO,? 


UO J / 








TYA 




i nQT 


flfl3fl 

UO JO 


65 


R? 




ADC W+l 




1094 


08 3A 


4C 


3D 


02 


JMP PUSH 




1095 


08 3D 












1096 


08 3D 












1097 


083D 












1098 


083D 








'.FILE F0R2/1 ; LINK TO NEXT FILE 




1099 


08 3D 












1100 


08 3D 








; USER 




1101 


083D 








; SCREEN 34 LINE 


10 


1102 


083D 












1103 


083D 


84 






L902 .BYTE $84,'USE',$D2 
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LINE 


if LOC 




CODE 


LINE 










1103 


083E 


55 


53 


45 












1103 


0841 


D2 
















1104 


0842 


20 


08 






. WORD L885 




LINK TO VARIABLE 


1105 


0844 


D6 


07 




USER 


.WORD DOCOL 








1106 


0846 


OB 


08 






.WORD CONST 








1107 


0848 


12 


oc 






.WORD PS COD 








1108 


08 4A 


















1109 


084A 


AO 


02 




DOUSE 


ldy n 








1110 


084C 


18 








CLC 








1111 


084D 


Bl 


Bl 






LDA (W) ,Y 








1112 


084F 


65 


B3 






ADC UP 








1113 


0851 


48 








PEA 








1 114 


0852 


A9 


00 






LDA #0 








1115 


0854 


65 


B4 






ADC UP+1 








1116 


0856 


4C 


3D 


02 




JMP PUSH 

Jill L W JlL 








1117 


0859 


















1 US 


0859 



















1119 

L 1. X 7 


0859 














SCREEN 35 LINE 


2 


1120 


0859 


















1121 


0859 


81 






L920 


. BYTE $81,$B0 








1121 


085A 


B0 
















1122 


085B 


3D 


08 






. WORD L902 




LINK TO USER 




1123 


085D 


15 


08 




ZERO 


. WORD DOCON 








1124 


085F 


00 


00 






•WORD 








1125 


0861 


















1126 


0861 








• 






1 




1127 


0861 














SCREEN 35 LINE 


2 


1128 


0861 








. 










1129 


0861 


81 






L928 


.BYTE $81,$BI 








1129 


0862 


Bl 
















1130 


0863 


59 


n o 
UO 






.WORD L920 




LINK TO 




1131 


0865 


15 


08 




ONE 


.WORD DOCON 








1132 


0867 


01 


00 






.WORD 1 








1133 


0869 


















1134 


0869 














2 




1135 


0869 














SCREEN 35 LINE 


3 


1136 


0869 








* 










1137 


0869 


81 






L936 


.BYTE $81,$B2 








1137 


08 6A 


B2 
















1138 


086B 


61 


08 






.WORD L928 


* 


LINK TO 1 




1139 


086D 


15 


08 




TWO 


.WORD DOCON 








1140 


086F 


02 


00 






•WORD 2 








1141 


0871 


















1142 


0871 








! 






3 




1143 


0871 














SCREEN 35 LINE 


3 


1144 


0871 


















1145 


0871 


81 






L944 


.BYTE $81,$B3 








1145 


0872 


B3 
















1146 


0873 


69 


08 






.WORD L936 


■ 


LINK TO 2 




1147 


0875 


15 


08 




THREE 


.WORD DOCON 








1148 


0877 


03 


00 






.WORD 3 








1149 


0879 


















H50 


0879 














BL 




1151 


0879 














SCREEN 35 LINE 


4 


1152 


0879 
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T TNF 


it I oc 




CODE 




LINE 








1 1 j j 


0879 


8? 




L952 


.BYTE 


S82. 'B' . $CC 




1151 


087A 


42 














1153 


087B 


CC 














1154 


087C 


71 


08 






.WORD 


L944 ; 


LINK TO 3 


1155 


087E 


15 


08 


BL 


.WORD 


D0C0N 




1156 


0880 


20 


00 






. WORD 


$20 




1157 


0882 






* 








1158 


0882 














C/L 


1159 


0882 














SCREEN 35 LINE 5 


1 160 


0882 














Characters per line 


1 1 ft 1 
i i j i 


J v? U i 


83 




L960 


. BYTE 


$83.'C/".$CC 




110 1 






£. r 












lift] 


ORftS 

UOOJ 


CC 














lift? 


0886 


79 


08 






.WORD 

* FT \J 


L952 ; 


LINK TO BL 


1 1 ft 1 } 




1 5 


08 


CSLL 


. WORD 


DO CON 




1 1 ft A 
1 1 O H 


088A 


if} 








.WORD 


64 






















] 1 ftft 


088C 














FIRST 


1167 


088C 














SCREEN 35 LINE 7 


1168 


088C 
















1169 


08 8C 


85 




L968 


.BYTE 


$85. 'FIRS'. $D4 




1 1 ft9 


088D 


46 


49 












11 ft 9 

1 1 U J 


089 1 


D4 














1 170 


□ 892 


82 


08 






• WORD 


L960 ; 


LINK TO C/L 


1171 


0894 




08 


FIRST 


• WORD 


D0C0N 




1172 


0896 


60 


3B 






.WORD 


DAREA bottom of 


disk buffer area 


1173 


□ 898 
















1 X I *T 


0898 














LIMIT 


1 175 


0898 














SCREEN 35 LINE 8 


1176 


0898 
















1177 


0898 


85 




L976 


. BYTE 


$85,'LIMI',$D4 




1177 


0899 


4C 


49 












1177 


089D 


D4 














1178 


089E 


8C 


08 






.WORD 


L968 ; 


LINK TO FIRST 


1179 


08A0 


15 


08 


LIMIT 


.WORD 


D0C0N 




1180 


08A2 


80 


3F 






.WORD 


UAREA buffers end at user area 


1181 


08A4 
















1132 


08A4 














B/BUF 


1 183 


08A4 














SCREEN 35 LINE 9 


1 1 84 

Jl 1 OH 


08A4 














Bytes per buffer 


1 1 

1 1 o 3 




RS 




L984 


. BYTE 


$85,'B/BU',$C6 




i 1 Oc 

lie!) 






it 












HOD 


DRAQ 
U OA? 


















ORA A 


98 


08 






• WORD 

w FT So-' 1 \_L/ 


L976 ; 


LINK TO LIMIT 


1 1 R7 
1 1 o / 




i J 


08 


BBUF 


. WORD 


DOC0N 




1 1 HH 
1 1 00 


ORAF 


RO 


no 






.word 


SSIZE sector size 


1189 


O8B0 
















1190 


08B0 














B/SCR 


1191 


08B0 














SCREEN 35 LINE 10 


1192 


08B0 














Blocks per screen 


1193 


08B0 


85 




L992 


.BYTE 


?85,'B/SC',$D2 




1193 


08B1 


42 


2F 












1193 


08B5 


D2 














1194 


08B6 


A4 


08 






.WORD 


L984 ; 


LINK TO B/BUF 


1195 


08B8 


15 


08 


BSCR 


.WORD 


D0C0N 
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LINE 


» LOG 




CODE 


LINE 








1196 


08BA 


08 


00 




.WORD 


8 blocks to 


make one screen. 


1197 


08BC 






; 








1198 


08BC 






; 






+ORIGIN 


1199 


08BC 






; 






SCREEN 35 LINE 12 


1200 


08BC 






; 








1201 


08BC 


87 




L1000 


.BYTE 


$87,'-K)RIGI' J $CE 




1201 


08BD 


2B 


4F 










1201 


08C3 


CE 












1202 


08C4 


BO 


08 




■ WORD 


L992 ; 


LINK TO B/SCR 


1203 


08C6 


D6 


07 


PORIG 


.WORD 


DOCOL 




1204 


08C8 


2A 


02 




.WORD 


LIT.ORIG 




1204 


08CA 


00 


02 










1205 


08CC 


99 


06 




.WORD 


PLUS 




1206 


08CE 


OC 


06 




. WORD 


SEMIS 




1207 


08DO 






; 








1208 


08D0 






; 






TIB 


1209 


08DO 






; 






SCREEN 36 LINE 4 


1210 


08DO 






; 








1211 


08DO 


83 




L1010 


.BYTE 


$83,'TI',$C2 




1211 


08D1 


54 


49 










1211 


08D3 


C2 












1212 


08D4 


BC 


08 




.WORD 


L1000 ; 


LINK TO -WRIGIN 


1213 


08D6 


4A 


08 


TIB 


.WORD 


DOUSE 




1214 


08D8 


OA 






• BYTE 


$A 




1215 


08D9 






; 








1216 


08D9 






; 






WIDTH 


1217 


08D9 






; 






SCREEN 36 LINE 5 


1218 


08D9 






; 








1219 


08D9 


85 




L1018 


• BYTE 


$85,'WIDT',$C8 




1219 


08DA 


57 


49 










1219 


08DE 


C8 












1220 


08DF 


DO 


08 




.WORD 


L1010 ; 


LINK TO TIB 


1221 


08E1 


4A 


08 


WIDTH 


. WORD 


DOUSE 




1222 


08E3 


OC 






.BYTE 


$c 




1223 


08E4 






; 








1224 


08E4 






i 






WARNING 


1225 


08E4 






; 






SCREEN 36 LINE 6 


1226 


0SE4 






; 








1227 


08E4 


87 




L1026 


.BYTE 


$87 ) 'WARNIN' ,$C7 




1227 


08E5 


57 


41 










1227 


08EB 


C7 












1228 


08EC 


D9 


08 




.WORD 


L1018 ; 


LINK TO WIDTH 


1229 


08EE 


4A 


08 


WARN 


-WORD 


DOUSE 




1230 


08F0 


OE 






• BYTE 


$E 




1231 


08F1 






; 








1232 


08F1 






; 






FENCE 


1233 


08F1 












SCREEN 36 LINE 7 


1234 


08F1 






; 








1235 


08F1 


85 




L1034 


.BYTE 


$85,'FENC',$C5 




1235 


08F2 


46 


45 










1235 


08F6 


C5 












1236 


08F7 


E4 


08 




• WORD 


L1026 ; 


LINK TO WARNING 


1237 


08F9 


4A 


08 


FENCE 


.WORD 


DOUSE 




1238 


08FB 


10 






.BYTE 


$10 




1239 


08FC 
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LINE 


# LOC 




CODE 


LINE 










t 7£0 

i. Z*+ V 
















DP 


1241 


08FC 






* 
1 








SCREEN 36 LINE 8 


1 9A7 


U OP 






t 










1 7 A 7 

I L H J 


UOr u 


R9 
o z 




Jj i VHZ 




S82 'D' SD0 






1 Z4J 


8FD 


/. /. 
t*1 














1 Z^O 


uor 


nn 














1 9 AA 




Fl 


08 




.WORD 


L1034 


I 


LINK TO FENCE 


1 9£ =1 


090 i 


AA 


OR 


DP 


. WORD 


DOUSE 






1 7 Aft 




-LZ 






. RYTF 

■ Dill. 


$12 






1 9/7 
lit/ 


uy ut 


















nooA 
uy U4 














VOC-LINK 


1 Z^y 


uy ut 














SCREEN 36 LINE 9 


1Z jU 


uy ut 


















n90A 


88 




T ! nso 

L1UJU 


. RYTF 


$88,'V0C-L1N',$CB 


1 LD 1 


uyuj 


56 


4F 














no or 


CB 














1 7^7 

L t- J I. 


OQOT) 


FC 


08 




- ur>Rr> 


L1042 


i 


LINK TO DP 


1 9 S3 
1 ■ — — ' —* 


09 OF 


4A 08 


von 




DOUSE 






1254 


091 1 


14 






.BYTE 


§14 






1255 


0912 
















1256 


0912 














BLK. 


1257 


0912 














JO LINb XU 


1258 

J. t+ J \j 


0912 
















1259 


09 12 


B1 

OJ 




L1058 


.BYTE 


$83, BL ,$CB 






1259 


0913 


/. 7 














1259 


0915 
















1260 


0916 


n a 
ut 


no 
u y 




.WORD 


L1050 


i 


LINK TO VOC-LINK 


l 7 fi l 


no, i « 


4A 


08 


RT If 


. UDRfl 

• Hwlw 


D01 SE 






1 9A7 

i z o z 


no i a 

Uy 1A 


16 






RYTR 

• r» 1 1 & 


$16 , 






1 1 A 1 
1 Z J 


Uj La 






j 










1 ZD 1 * 


Uy in 














T M 
IN 


1 IAS 
1 ZD J 


Uy li) 






\ 








SCREEN 36 LINE 11 


1 7 £ A 
1 Zoo 


no i n 
uy ib 






i 










1 A 7 
1 ZO / 


no i n 


82 




L i UOO 


• B I 1 E, 


$82,'I',$CE 






1 7A7 

lib/ 


uy il 


49 














1 9A7 
1 ZO / 


no i n 
uy ii/ 


CE 














1 ZO O 


1 Hi 


12 


09 






L1058 


• 


LINK TO BLK 


1 969 


oq ? n 

u j i ^ 


4A 


08 


IN 


. WORD 


DOUSE 






1 770 
1 z / u 


099 9 
U 7 zz 


18 






. RYTF 

t fl 1 1L 


$18 






17 7 1 
1 Z / I 


(1071 
uy z j 
















1 77? 


0973 






* 








OUT 


1777 
1 Z / J 
















SCREEN 36 LINE 12 


1 7 7 A 
1 Z / *t 


nQ9 1 
















1275 


0923 


83 




L1074 


. BYTE 


$83,'0U',$D4 






1 275 


0924 


4F 


55 












1275 


0926 


D4 














1276 


0927 


IB 


09 




.WORD 


LI 066 


• 

j 


LINK TO IN 


1277 


0929 


4A 


08 


OUT 


.WORD 


DOUSE 






1278 


092B 


1A 






.BYTE 


$1A 






1279 


092C 






• 
> 










1280 


092C 






■ 








SCR 


1281 


092C 






1 








SCREEN 36 LINE 13 


1282 


092C 






• 










1283 


09 2C 


83 




L1082 


.BYTE 


$83,'SC',$D2 






1283 


092D 


53 


43 
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LINE 


# LOC 


CODE 




LINE 








1283 


092F 


D2 












1284 


0930 


23 09 






. WORD 


L1074 ; 


LINK TO OUT 


1285 


0932 


4A 08 


SCR 


• WORD 


DOUSE 




1286 


0934 


1C 






.BYTE 


$1C 




1287 


0935 














1288 


0935 












OFFSET 


1289 


0935 












SCREEN 37 LINE 1 


1290 


0935 














1291 


0935 


86 


L1090 


.BYTE 


$86,'0FFSE',$D4 




1291 


0936 


4F 46 












1291 


093B 


D4 












1292 


093C 


2C 09 






.WORD 


L1082 ; 


LINK TO SCR 


1293 


093E 


4A 08 


OFSET 


.WORD 


DOUSE 




1294 


0940 


IE 






. BYTE 


$1E 




1295 


0941 






! 








1296 


0941 












CONTEXT 


1297 


0941 




! 






SCREEN 37 LINE 2 


1298 


0941 




» 








1299 


0941 


87 


L1098 


.BYTE 


$87, 'C0NTEX',$D4 




1299 


0942 


43 4F 












1299 


0948 


D4 












1300 


0949 


35 09 






. WORD 


L1O90 ; 


LINK TO OFFSET 


1301 


094B 


4A 08 


CON 


. WORD 


DOUSE 




1302 


09 4D 


20 






. BYTE 


$20 




1303 


094E 














1304 


094E 




i 


> 






CURRENT 


1305 


094E 




! 








SCREEN 37 LINE 3 


1306 


094E 






» 








1307 


094E 


87 


LU06 


-BYTE 


$87,'CURREN',$D4 




1307 


094F 


43 55 












1307 


0955 


D4 












1308 


0956 


41 09 






.WORD 


L1098 ; 


LINK TO CONTEXT 


1309 


0958 


4A 08 


CURR 


. WORD 


DOUSE 




1310 


095A 


22 






- BYTE 


$22 




1311 


095B 














1312 


095B 












STATE 


1313 


095B 












SCREEN 37 LINE 4 


1314 


095B 














1315 


095B 


85 


LI 1 14 


.BYTE 


$85,'STAT',$C5 




1315 


095C 


53 54 












1315 


0960 


C5 












1316 


0961 


4E 09 






• WORD 


L1106 ; 


LINK TO CURRENT 


1317 


0963 


4A 08 


STATE 


. WORD 


DOUSE 




1318 


0965 


24 






. BYTE 


$24 




1319 


0966 














1320 


0966 












BASE 


1321 


0966 












SCREEN 37 LINE 5 


1322 


0966 














1323 


0966 


84 


L1122 


.BYTE 


$84 J 'BAS',$C5 




1323 


0967 


42 41 53 










1323 


096A 


C5 












1324 


096B 


5B 09 






.WORD 


L1114 ; 


LINK TO STATE 


1325 


096D 


4A 08 


BASE 


.WORD 


DOUSE 




1326 


096F 


26 






.BYTE 


$26 




1327 


0970 






> 
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LINE 


I LOC 




CODE 


LINE 








1328 


0970 






* 






DPL 


1329 


0970 






m 
> 






SCREEN 37 LINE 


1330 


0970 






• 
■ 








1331 


0970 


83 




LI 130 


.BYTE $83,'DP',$CC 






1331 


0971 


44 


50 










1331 


0973 


CC 












1332 


0974 


66 


09 




.WORD LI 122 


• 
> 


LINK TO BASE 


1333 


0976 


4A 


08 


DPL 


•WORD DOUSE 






1334 


0978 


28 






• BYTE $28 






1335 


0979 






. 








1336 


0979 












FLD 


1337 


0979 












SCREEN 37 LINE 


1338 


0979 














1339 


0979 


83 




L1138 


.BYTE $83,'FL',$C4 






1339 


097A 


46 


4C 










1 339 


097C 


C4 












1340 

J- -J *T V 


09 7D 


70 


09 




.WORD LI 130 


* 


LINK TO DPL 


1341 


097F 


4A 


08 


FLD 


.WORD DOUSE 






1342 


0981 


2A 






.BYTE $2A 






1 343 


(1982 






, 








1344 


0982 






! 






CSP 


1345 


0982 






\ 






SCREEN 37 LINE 


1346 


0982 






! 








1347 


0982 


83 




LI 146 


.BYTE $83,'CS*,$D0 






1347 


0983 


43 


53 










1347 


0985 


DO 












1348 


0986 


79 


09 




.WORD LI 138 


■ 
P 


LINK TO FLD 


1349 


0988 


4A 


08 


CSP 


.WORD DOUSE 






1350 


098A 


2C 






.BYTE $2C 






1351 


098B 






; 








1352 


098B 






; 






R# 


1353 


098B 






• 






SCREEN 37 LINE 


1354 


098B 






• 








1355 


098B 


82 




L1154 


.BYTE $82,'R*,$A3 






1355 


09 8C 


52 












1355 


098D 


A3 












1356 


098E 


82 


09 




.WORD LI 146 




LINK TO CSP 


1357 


0990 


4A 


08 


RNUM 


.WORD DOUSE 






1358 


0992 


2E 






.BYTE $2E 






1359 


0993 














1360 


0993 












HLD 


1361 


0993 












SCREEN 37 LINE 


1362 


0993 






\ 








1363 


0993 


83 




L1162 


.BYTE $83,'HL',SC4 






1363 


0994 


48 


4C 










1363 


0996 


C4 












1364 


0997 


8B 


09 




.WORD L1154 


* 


LINK TO R# 


1365 


0999 


4A 


08 


HLD 


.WORD DOUSE 






1366 


099B 


30 






.BYTE $30 






1367 


099C 














1368 


099C 












1+ 


1369 


09 9C 












SCREEN 38 LIME 


1370 


099C 














1371 


099C 


82 




U170 


• BYTE $82,'1',$AB 






1371 


09 9D 


31 
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T TWIT 


# t or 




fOBT 1 

UOJJ ]_. 


T TNF 

1.. Xii Hj 








1371 


099E 


AB 












1372 


099F 


93 


09 




. WORD 


L1162 ; 


LINK TO HLD 


1373 


09A1 


D6 


07 


0NEP 


. WORD 


DOCOL 




1374 


09A3 


65 


08 




.WORD 


ONE 




1375 


09A5 


99 


06 




.WORD 


PLUS 




1376 


09A7 


OC 


06 




. WORD 


SEMIS 




1377 


09A9 






• 








1378 


09A9 






• 
* 






2+ 


1379 


09A9 






J 






SCREEN 38 LINE 


1380 


09A9 














1381 


09A9 


82 




LI 180 


. BYTE 


$82 *2* ,SAB 




1381 


09AA 


32 












1381 


09AB 


AB 












1382 


09AC 


9C 


09 




. WORD 


LI 170 ; 


LINK TO 1+ 


1383 


09AE 


D6 


07 


TWOP 


.WORD 


DOCOL 




1384 


09BO 


6D 


08 




.WORD 


TWO 




1385 


09B2 


99 


06 




. WORD 


PLUS 




1386 


09B4 


OC 


06 




.WORD 


SEMIS 




1387 


09B6 






■ 








1388 


09B6 






- 






HERE 


1389 


09B6 












SCREEN 38 LINE 


1390 


09B6 














1391 


09B6 


84 




L1190 


.BYTE 


S84 'HER' SC5 




1391 


09B7 


48 


45 52 










1391 


09BA 


C5 












1392 


09BB 


A9 


09 




. WORD 


L1180 ; 


LINK TO 2+ 


1393 


09BD 


D6 


07 


HERE 


.WORD 


DOCOI 




1394 


09BF 


01 


09 




.WORD 


DP 




1395 


09C1 


79 


07 




.WORD 


AT 




1 396 


09C3 


0C 


06 




.WORD 






1397 


09C5 






I 
J 








1398 


09C5 






* 






ALLOT 


1399 


09C5 






* 






SCREEN 38 LINE 


1400 


09C5 














1401 


09C5 


65 




L1200 


• BYTE 


$85,'ALLO',$D4 




1401 


09C6 


41 


4C 










1401 


09CA 


D4 












1402 


09CB 


B6 


09 




.WORD 


L1190 ; 


LINK TO HERE 


1403 


09CD 


D6 


07 


ALLOT 


• WORD 


DOCOL 




1404 


09CF 


01 


09 




.WORD 


DP 




1405 


09D1 


49 


07 




. WORD 


PSTOR 




1406 


09D3 


OC 


06 




.WORD 


SEMIS 




1407 


09D5 














1408 


09D5 














1409 


09D5 






- 






SCREEN 38 LINE 


1410 


09D5 














1411 


09D5 


81 




L1210 


. BYTE 


$81,$AC 




1411 


09D6 


AC 












1412 


09D7 


C5 


09 




. WORD 


L1200 ; 


LINK TO ALLOT 


1413 


09D9 


D6 


07 


COMMA 


.WORD 


DOCOL 




1414 


09DB 


BD 


09 




.WORD 


HERE 




1415 


09DD 


9D 


07 




.WORD 


STORE 




1416 


09DF 


6D 


08 




. WORD 


TWO 




1417 


09E1 


CD 


09 




.WORD 


ALLOT 




1418 


09E3 


OC 


06 




.WORD 


SEMIS 
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LINE 


§ LOC 




CODE 


LINE 










1419 


09E5 






■ 

> 










1420 


09E5 






* 
> 








c, 


1421 


09E5 






■ 








SCREEN 38 LINE 6 


1422 


09E5 






• 
j 










1423 


09E5 


82 




L1222 


• BYTE 


$82,'C',$AC 






1423 


09E6 


43 














1423 


09E7 


AC 














1424 


09E8 


D5 


09 




. WORD 


L1210 


> 


LINK TO , 


1425 


09EA 


D6 


07 


CCOMM 


-WORD 


DOCOL 






1426 


09EC 


BD 


09 




• WORD 


HERE 






1427 


09EE 


B5 


07 




.WORD 


CSTOR 






1428 


09F0 


65 


08 




.WORD 


ONE 






1429 


09F2 


CD 


09 




.WORD 


ALLOT 






1430 


09F4 


OC 


06 




.WORD 


SEMIS 






1431 


09F6 






• 
* 










1432 


09F6 






• 








- 


1433 


09F6 






• 








SCREEN 38 LINE 7 


1434 


09F6 






■ 

f 










1435 


09F6 


81 




L1234 


• BYTE 


$81,$AD 






1435 


09F7 


AD 














1436 


09F8 


E5 


09 




. WORD 


L1222 


• 

* 


LINK TO C, 


1437 


09FA 


D6 


07 


SUB 


.WORD 


DOCOL 






1438 


09FC 


D8 


06 




.WORD 


MINUS 






1439 


09FE 


99 


06 




.WORD 


PLUS 






1440 


0A00 


OC 


06 




• WORD 


SEMIS 






1441 


0A02 
















1442 


0A02 






• 
* 










1443 


0A02 






• 
> 








SCREEN 38 LINE 8 


1444 


0A02 






* 
* 










1445 


OA02 


81 




L1244 


• BYTE 


$8I,$BD 






1445 


0A03 


BD 














1446 


0AO4 


F6 


09 




.WORD 


L1234 


■ 


LINK TO - 


1447 


0AG6 


D6 


07 


EQUAL 


. WORD 


DOCOL 






1448 


0AO8 


FA 


09 




.WORD 


SUB 






1449 


OAOA 


73 


06 




.WORD 


ZEQU 






1450 


OAOC 


OC 


06 




.WORD 


SEMIS 






1451 


OAOE 






> 










1452 


OAOE 






* 








U< 


1453 


OAOE 






i 








Unsigned less than 


1454 


OAOE 






* 
» 










1455 


OAOE 


82 




L1246 


. BYTE 


$82,'U',$BC 






1455 


OAOF 


55 














1455 


0A10 


BC 














1456 


0A11 


02 


OA 




.WORD 


L1244 






1457 


0A13 


D6 


07 


ULESS 


.WORD 


DOCOL 






1458 


0A15 


FA 09 




.WORD 


SUB subtract 


two values 


1459 


0A17 


88 


06 




.WORD 


ZLESS test sign 


1460 


0A19 


OC 


06 




.WORD 


SEMIS 






1461 


0A1B 






■ 










1462 


0A1B 














< 


1463 


0A1B 














Altered from model 


1464 


OA IB 














SCREEN 38 LINE 9 


1465 


OA IB 
















1466 


0A1B 


81 




L1254 


.BYTE 


$81,$BC 






1466 


0A1C 


BC 
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LINE 


# LOC 




CODE 


LINE 




1467 


0A1D 


OE 


OA 




.WORD LI 246 LINK TO U< 


1468 


OA IF 


21 


OA 


LESS 


. WORD *+2 


1469 


0A21 


38 






SEC 


1470 


0A22 


B5 


02 




LDA 2,X 


1471 


0A24 


F5 


00 




SBC 0,X subtract 


1472 


0A26 


B5 


03 




LDA 3,X 


1473 


0A28 


F5 


01 




SBC 1,X 


1474 


0A2A 


94 


03 




STY 3,X zero hi byte 


1475 


0A2C 


50 


02 




BVC L1258 


1476 


0A2E 


49 


80 




EOR #$80 correct overflow 


1477 


OA30 


10 


01 


L1258 


BPL L1260 


1478 


0A32 


C8 






INY invert boolean 


1479 


0A33 


94 


02 


L1260 


STY 2,X leave boolean 


1480 


OA35 


4C 


EE 03 




JMP POP 


1481 


0A38 






> 




1482 


0A38 








> 


1483 


0A38 






> 


SCREEN 38 LINE 


1484 


0A38 






• 




1485 


0A38 


81 




L1264 


. BYTE $81,$BE 


1485 


0A39 


BE 








1486 


0A3A 


IB 


OA 




.WORD L1254 ; LINK TO < 


1487 


0A3C 


D6 


07 


GREAT 


.WORD DOCOL 


1488 


0A3E 


22 


07 




. WORD SWAP 


1489 


0A40 


IF 


OA 




.WORD LESS 


1490 


0A42 


OC 


06 




.WORD SEMIS 


1491 


0A44 






• 
J 




1492 


0A44 






i 
1 


ROT 


1493 


0A44 






» 
J 


SCREEN 38 LINE 


1494 


0A44 






• 
* 




1495 


0A44 


83 




L1274 


.BYTE $83,'RO',$D4 


1495 


0A45 


52 


4F 






1495 


0A47 


D4 








1496 


0A48 


38 


OA 




.WORD LI 264 ; LINK TO > 


1497 


0A4A 


D6 


07 


ROT 


. WORD DOCOL 


1498 


0A4C 


3A 


06 




. WORD TOR 


1499 


0A4E 


22 


07 




. WORD SWAP 


1500 


0A50 


4C 


06 




.WORD RFROM 


1501 


0A52 


22 


07 




.WORD SWAP 


1502 


0A54 


OC 


06 




.WORD SEMIS 


1503 


OA56 






j 




1504 


OAS 6 






* 


SPACE 


1505 


OA56 






* 

s 


SCREEN 38 LINE 


1506 


OAS 6 






f 




1507 


OA56 


85 




L1286 


.BYTE $85»'SFAC',$C5 


1507 


0A5 7 


53 


50 






1507 


0A5B 


C5 








1508 


0A5C 


44 


OA 




.WORD L1274 ; LINK TO ROT 


1509 


OA5E 


06 


07 


SPACE 


• WORD DOCOL 


1510 


0A60 


7E 


08 




. WORD BL 


1511 


0A62 


D7 


04 




.WORD EMIT 


1512 


0A64 


OC 


06 




.WORD SEMIS 


1513 


0A66 










1514 


0A66 






• 
> 


-DUP 


1515 


0A66 






* 
> 


SCREEN 38 LINE 


1516 


0A66 






* 
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T T VTT7 

LINE 


IF LUC 




/ - / \ r-. t- 

LQDt, 


T T KI t? 










1 C 1 ^ 

1517 


QAbb 


84 




L A £yo 


• BlIIS 








151 I 


UAO / 


7T1 














1 5 L 1 


UAQA 


nn 














1 CI o 




50 


fl A 
UA 






T 1 7fl6 






1 cin 


n a An 

UADi/ 


Li 


n? 
u / 














HA fiV 
Uri o r 


Jri 






• WORD 


DUP 






I "i 7 1 


fi A 7 1 










ZBRAN 






1 


HA 7? 


04 




L1301 


. WORD 


$4 


L1303-L1301 




1 


flA 7 5 




n7 




• WORD 


DUP 






1 cnj 

1 D Z'» 


n A 7 7 




uo 




* WUKD 


SEMIS 






] ETC 
15/5 


Ai if] 

ua/ y 






* 










1 C o £ 

1526 


OA79 












TRAVERSE 




1527 


0A79 






* 






SCREEN 39 LINE 


1 A 


1528 


0A79 
















1529 


0A79 


So 




t i 7no 
LI JOB 


• BYTE 


$88, 'TRAVERS'.SCS 




1529 


0A7A 


54 


52 












1529 


0A81 


C5 














1530 


0A82 


66 


OA 




.WORD 


L1296 


; LINK TO -DUP 




1531 


OAS 4 


D6 


07 


TRAV 


. WORD 


D0C0L 






1532 


0A86 


22 


07 




.WORD 


SWAP 






1533 


OAS 8 


08 


07 


L1312 


.WORD 


OVER 






1534 


0A8A 


99 


06 




• WORD 


PLUS 






1535 


0A8C 


67 


02 




.WORD 


CLIT 






1536 


0A8E 


7F 






. BYTE 


$7F 






1537 


0A8F 


Oo 


07 




• WORD 


OVER 






1 5io 


UA9 1 




u / 




T T/M>T\ 

. WUKU 


CAT 






i con 

1539 


0A93 


1 T" 

IF 


OA 




• WORD 


LESS 






154U 


UA95 


50 


U J 




. WUKU 


ZBRAN 






1 54 1 


UAy / 


i? i 
J i 


17 IT 

r r 


1 1 7,71"! 

1,1 


. WUiuJ 


SFFF1 


L1312-L1320 




1 R /■ 7 
1 Jtl 




7 7 


A 7 




UAKfi 


SWAP 






1C/.-J 


n a q u 


1 ? 


n7 
u / 




* wurvu 


DROP 






1 _? H 




fir 


LTD 




. WORD 


SEMIS 






1 Jt J 


n A QV 
















1 ^Lf. 
15 40 








| 






LATEST 




1 ^ AT 














SCREEN 39 LINE 


6 


1548 


(JAyr 






J 










1549 


0A9F 


OO 




T 1 7 7 fl 
L I J2o 


UVTU 


$86, 'LATES' ,$D4 






UAAU 




/i I 
41 












1549 


0AA5 


D4 














1550 


0AA6 


79 


OA 




.WORD 


L1308 


; LINK TO TRAVERSE 


1551 


0AA8 


D6 


07 


LATES 


.WORD 


D0C0L 






1552 


0AAA 


58 


09 




.WORD 


CURR 






1553 


0AAC 


79 


07 




.WORD 


AT 






1554 


0AAE 


79 


07 




. WORD 


AT 






1555 


0AB0 


OC 


06 




• WORD 


SEMIS 






1 556 


0AB2 
















1557 


0AB2 












LFA 




1558 


0AB2 












SCREEN 39 LINE 


11 


1559 


0AB2 
















1560 


0AB2 


83 




L1339 


.BYTE 


$83,'LF' ,$C1 






1560 


0AB3 


AC 


46 












1560 


0AB5 


CI 














1561 


0AB6 


9F 


OA 




.WORD 


L1328 


; LINK TO LATEST 




1562 


0AB8 


D6 


07 


LFA 


.WORD 


D0C0L 






1563 


0ABA 


67 


02 




.WORD 


CLIT 
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LINE 


# LOC 




CODE 


LINE 










1564 


GABC 


A / 






* BYTE 


k 






1 jdj 


A A DTi 
UA15D 


tA 


uy 




X TAT3 








1566 


Ai Tit? 

0ABF 


0C 


Uo 




• WORD 


SEMIS 






1567 


A A A 1 

0AC1 






j 










1 56e 


A A A 1 
UAL1 














Lr A 


1 r / fi 

1569 


A A A 1 

0AC1 






» 








SCREEN 39 LINE 


1570 


A A A 1 

UAL1 
















1 S7 1 

i j i i 


fl A C 1 


OJ 




t i 'isn 




903, r , 9U 1 






1 S7 1 

iJ / 1 


ft* AO 
















I J / 1 




CI 














1 177 


a*a e 
UAL _> 


U7 






- WUKJJ 


t mo 

li 3 jy 


> 


iilWlv 1U Ijf A 


1 S7 


HAP? 
UA^ / 


nfi. 

1JO 


V / 




* WUrLU 








1 17A 




fin 
oli 


UO 




UAt? a 


Tun 
1WU 






1 171 




FA 


no 




* WUrsJJ 












nr 


nft 




LTA{3n 








1 177 
13// 


Hi A IT 

UAUr 
















7 17fi 
i 3 / o 


HA A V 














MVA 

Nr A 


1 170 
i. 3 / j 


HA ATT 














CA1>FFKT ^O T TMT? 
b(jKtt,N 3? Lint. 


1 Iftfl 






















e t 

VJ 




t i iftn 


• IS I 1 Si 








1 Ifi t 




AF 


to 
















a 1 
^ i 














L J O £ 




^ i 


nA 

UA 




• WUKJJ 


t 1 cn 
LI Jjv 




T TWIT TA PFA 

LINis. iu LrA 


1 S ft '3 


UADj 


1J0 


n 7 


Nr A 


• WUKJJ 


r*n/r\T 






] ISA 


OA A7 


ft7 

o / 


n? 






ULl 1 






1 IKS 


AAAQ 
UAJJ 7 


ns 

U3 








93 






1 ;()£, 
1 300 


a.a n a 
UAUA 


J"A 


AO 




* WORD 


CT I'D 








A A TiA 


7 A 






* WORD 


LIT, $FFFF 






1 COT 

13 0/ 


a a nir 


if 


FF 












1 too 


A A f A 


o4 


UA 




• WORD 


TRAV 






1 IRQ 




UC 


Ad 




• WORD 


SEMIS 






i son 

1 J7U 


HA T? A 
















1 SQ 1 
1 33 1 


HA 














ft A 


1 1Q7 
1 3 7 Z 


AA IT A 






j 








SLRthN Jy LINE 


1 J7 J 


n a in a. 

UAH** 
















1 SQi 

1 J J H 


Oafa 


a j 




I 1 t7t 
ii 1 J / 3 


DVT P 


cist 'ptt' tr 1 








Oafs 


3U 


Aft 












1594 


OAF 7 


CI 














1595 

± *J J *J 


0AF8 

UH£*U 


TF 


OA 




• w \j rvLif 




> 


T TTJK TA MFA 


1 596 


OA FA 


lift 


n7 

u / 


PF A 
sri a 


VJARA 


TsCir AT 






1597 

J- — ' J i 


OAFf 




na 




UOT?n 

* WUAU 


ANF 






1 598 


Oaff 


OH 


n& 

uri 












1599 


Uilt u 


n7 


U 




um?n 


n tt 








n a f ? 








T? V TV 
tDUL 


c 

3 








UAr j 


q q 


Afi 
UO 




* WUKJJ 










AA FS 


AA 


UO 




• WORD 


C 17UT O 

bh.11 s 








flAF7 
















1604 


OAF 7 














1CSP 


1605 


0AF7 














SCREEN 40 LINE 


1606 


0AF7 
















1607 


0AF7 


84 




L1386 


- BYTE 


$84,'!CS',$D0 






1607 


OAFS 


21 


43 53 












1607 


0AFB 


DO 














1608 


0AFC 


E4 


OA 




-WORD 


L1373 


» 


LINK TO PFA 


1609 


OAFE 


D6 


07 


SCSP 


- WORD 


DOCOL 







f ig-FORTH for 6502, Rel 1.1 



PAGE 0035 



LINE 


if LOG 




CODE 


LINE 








1610 


OB 00 


D9 


05 




.WORD 


SPAT 




1611 


OB 02 


88 


09 




. WORD 


CSP 




1612 


0B04 


9D 


07 




.WORD 


STORE 




1613 


0B06 


oc 


06 




.WORD 


SEMIS 




1614 


0B08 














1615 


OB08 






; 






1 ERROR 


1616 


OB 08 




t 


; 






SCREEN 40 LINE 


1617 


0B08 






; 








1618 


OB 08 


86 




L1397 


.BYTE 


$86, ' ?ERRO' 


,$D2 


1618 


OB09 


3F 


45 










1618 


OBOE 


D2 












1619 


OBOF 


F7 


OA 




.WORD 


L1386 


; LINK TO !CSP 


1620 


OBU 


D6 


07 


QERR 


.WORD 


DOCOL 




1621 


OBI 3 


22 


07 




. WORD 


SWAP 




1622 


0B15 


56 


03 




.WORD 


ZBRAN 




1623 


OB 17 


08 


00 


LI 402 


.WORD 


8 


L14O6-L1402 


1624 


0B19 


CD 


OF 




-WORD 


ERROR 




1625 


OB IB 


37 


03 




.WORD 


BRAN 




1626 


OB ID 


04 


00 


L1405 


.WORD 


4 


L1407-L1405 


1627 


OB IF 


19 


07 


L1406 


. WORD 


DROP 




1628 


0B21 


OC 


06 


L1407 


• WORD 


SEMIS 




1629 


OB 2 3 






* 








1630 


0B23 












?COMP 


1631 


0B23 












SCREEN 40 LINE 


1632 


0B23 






; 








1633 


OB 23 


85 




L1412 


.BYTE 


$85,'?COM',$D0 


1633 


0B24 


3F 


43 










1633 


0B28 


DO 












1634 


0B29 


08 


OB 




.WORD 


L1397 


; LINK TO ? ERROR 


1635 


0B2B 


D6 


07 


QCOMP 


.WORD 


DOCOL 




1636 


0B2D 


63 


09 




. WORD 


STATE 




1637 


0B2F 


79 


07 




.WORD 


AT 




1638 


0B31 


73 


06 




• WORD 


ZEQO 




1639 


0B33 


67 


02 




.WORD 


CLIT 




1640 


OB 35 


11 






. BYTE 


$11 




1641 


OB 36 


11 


OB 




• WORD 


QERR 




1642 


0B38 


OC 


06 




.WORD 


SEMIS 




1643 


0B3A 






» 








1644 


0B3A 






f 






?EXEC 


1645 


OB 3 A 












SCREEN 40 LINE 


1646 


0B3A 






i 








1647 


0B3A 


85 




H426 


. BYTE 


$85,'?EXE',$C3 


1647 


0B3B 


3F 


45 










1647 


0B3F 


C3 












1648 


0B40 


23 


OB 




.WORD 


L1412 


; LINK TO ?COMP 


1649 


0B42 


D6 


07 


QEXEC 


.WORD 


DOCOL 




1650 


0B44 


63 


09 




.WORD 


STATE 




1651 


0B46 


79 


07 




.WORD 


AT 




1652 


0B48 


67 


02 




.WORD 


CLIT 




1653 


0B4A 


12 






.BYTE 


$12 




1654 


0B4B 


11 


OB 




.WORD 


QERR 




1655 


084D 


OC 


06 




.WORD 


SEMIS 




1656 


0B4F 














1657 


0B4F 












?PAIRS 


1658 


0B4F 












SCREEN 40 LINE 
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T TV1D 


Ji T A./" 1 




CODE 


LINE 








i d j y 








i 








i f, fin 


fTR ATT 


oo 




T 1 41Q 


■R V T P 


900, irAlK j^Uj 




1 £fifl 


Ub_>u 




^fi 
D\J 










1 boU 


UBS J 


TV O 

Di 












i i^t i 
I ob 1 


UB_>b 


JA 


OB 




• WUKU 


L1426 ; LINK TO :EXEC 




1662 


0B58 




07 


QPAIR 


. WORD 


D0C0L 




1663 


An C a 


FA 


An 

09 




.WORD 


SUB 




1664 


0B5C 


£ 7 

67 


A 1 

02 




. WORD 


CL1T 




1665 


0B5E 


1 3 






.BYTE 


$13 




1666 


0B5F 


11 


0B 




.WORD 


QERR 




1667 


0B61 


OC 


06 




• WORD 


SEMIS 




1668 


0B63 






1 








1669 


0B63 






• 




?CSP 




1670 


0B63 










SCREEN 40 LINE 


12 


1671 


OB63 






i 








1672 


0B63 


84 




L1451 


. BYTE 


$84, ?CS ,$D0 




1672 


ATI i t 

0B64 


3F 


43 53 










1672 


0B67 


DO 












1673 


0B68 


4F 


0B 




.WORD 


LL439 ; LINK TO ?PAIRS 




1 £. 7 / 

1674 


0B6A 


D6 


07 


QCSP 


• WORD 


DOCOL 




1675 


0B6C 


D9 


05 




.WORD 


SPAT 




1 £ "I £ 

J. b /b 


0B6E 


bo 


Art 




. WORD 


CSP 






UB i u 


/y 


AT 

u/ 




• WU. J JJ 






1 ^7ft 
10 to 


nn 7 o 
UB / i 


fA 


uy 




yAun 
• wutuJ 


SUB 




1 fv7Q 

ID/7 


fYR7A 


D / 


\J£. 




ufipn 


n tt 




1 680 


ud / y 








t D I 1 L 


■5 1 4 






OR 7 7 


1 1 
1 1 












1 68 2 




or 












1 68"} 

1 U O J 








j 








loot 


nn 7R 






| 








1 ^8*i 

1 DO J 


riR 7r 










erDp™ An I TNT? 


1 A 


1 AAA 
1 DO O 


fin 7r 














1 fi SI 7 

lbs/ 


AQ "7TJ 

UB / D 


Q S3 

oq 




Ll^ob 


. Bl 111 


yOO| (LOADLct , i?Kj I 




1 £ Q 7 

1687 


0B7C 


fV T-l 

3F 


4C 










Loo/ 




p 7 

C7 












1688 


0B84 


63 


OB 




• WORD 


L1451 ; LINK TO ?CSP 




1689 


0B 86 


D6 


07 


QL0AD 


. WORD 


DOCOL 




i £. n a 

1690 


All O C> 

0B88 


18 


09 




.WORD 


BLK 




1691 


0B8A 


79 


A -J 

07 




.WORD 


AT 




1 £ A *t 

1 692 


0B8C 


73 


A £. 

06 




.WORD 


ZEQU 




ioy j 


UBoh 


£ 7 


AO 

02 




. WORD 


CLIT 




i AO/ 


ATI Q A 

ubv u 


i ^ 
id 






. BYTE 


o i .c 

$ 16 




1 CQC 


UBy i 


i i 


UB 




• WORD 


A CD T> 

QcKR 




1 nQfi 
LO JD 


ATI Q T 

UD y -j 


fir 


UO 






SEMIS 




1 Q j / 


fin o ^ 

UD7J 






| 








1 J J o 


UiJ J -> 










COMPILE 












\ 




SCREEN 41 LINE 


2 


1700 


0B95 














1701 


0B95 


87 




L1480 


.BYTE 


$87,'COMPIL' 1 $C5 




1701 


0B96 


43 


4F 










1701 


0B9C 


C5 












1702 


0B9D 


7B 


0B 




.WORD 


LI 466 ; LINK TO 7L0ADING 


1703 


0B9F 


D6 


07 


COMP 


. WORD 


DOCOL 




1704 


0BA1 


2B 


OB 




.WORD 


QCOMP 




1705 


0BA3 


4C 


06 




.WORD 


RFROM 
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LINE 


# LOC 




CODE 


LINE 






1706 


0BA5 


3A 


07 




-WORD 


DUP 


1707 


0BA7 


AE 


09 




.WORD 


TWOP 


1708 


0BA9 


3A 


06 




. WORD 


TOR 


1709 


OBAB 


79 


07 




• WORD 


AT 


1710 


OB AD 


D9 


09 




.WORD 


COMMA 


1711 


OBAF 


OC 


06 




.WORD 


SEMIS 


1712 


0BB1 






; 






1713 


0BB1 






; 






1714 


0BB1 






! 






1715 


0BB1 






; 






1716 


0BB1 


CI 




L1495 


.BYTE 


$C1,$DB 


1716 


0BB2 


DB 










1717 


0BB3 


95 


OB 




.WORD 


L1480 


1718 


0BB5 


D6 


07 


LBRAC 


.WORD 


DOCOL 


1719 


0BB7 


5D 


08 




.WORD 


ZERO 


1720 


0BB9 


63 


09 




.WORD 


STATE 


1721 


OBSb 


9D 


07 




.WORD 


STORE 


1722 


OBBD 


OC 


06 




.WORD 


SEMIS 


1723 


OBBF 






; 






1724 


OBBF 






; 






1725 


OBBF 






; 






1726 


OBBF 






; 






1727 


OBBF 






; 






1728 


OBBF 


81 




L1507 


.BYTE 


$81,$DD 


1728 


OB CO 


DD 










1729 


0BC1 


Bl 


OB 




.WORD 


L1495 


1730 


0BC3 


D6 


07 


RBRAC 


.WORD 


DOCOL 


1731 


0BC5 


67 


02 




• WORD 


CLIT 


1732 


0BC7 


CO 






• BYTE 


$C0 


1733 


0BC8 


63 


09 




.WORD 


STATE 


1734 


OBCA 


9D 


07 




.WORD 


STORE 


1735 


OBCC 


OC 


06 




. WORD 


SEMIS 


1736 


OBCE 






; 






1737 


OBCE 






; 






1738 


OBCE 






; 






1739 


OBCE 






; 






1740 


OBCE 


86 




L1519 


.BYTE 


$86, 'SMI 


1740 


OBCF 


53 


4D 








1740 


0BD4 


C5 










1741 


0BD5 


BF 


OB 




. WORD 


L1507 


1742 


0BD7 


D6 


07 


SMUDG 


.WORD 


DOCOL 


1743 


0BD9 


A8 


OA 




.WORD 


LATES 


1744 


OBDB 


67 


02 




.WORD 


CLIT 


1745 


OBDD 


20 






.BYTE 


$20 


1746 


OBDE 


6A 


07 




.WORD 


TOGGL 


1747 


OBEO 


OC 


06 




.WORD 


SEMIS 


1748 


0BE2 












1749 


0BE2 












1750 


0BE2 












1751 


0BE2 












1752 


0BE2 


83 




L1531 


.BYTE 


$83, 'HE 


1752 


0BE3 


48 


45 








1752 


0BE5 


D8 










1753 


0EE6 


CE 


OB 




.WORD 


L1519 


1754 


0BE8 


D6 


07 


REX 


. WORD 


DOCOL 



[ 

SCREEN 41 LINE 5 



; LINK TO COMPILE 



] 

SCREEN 41 LINE 7 



LINK TO [ 



SMUDGE 

SCREEN 41 LINE 9 



LINK TO ] 



HEX 

SCREEN 41 LINE 11 



LINK TO SMUDGE 
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LINE 


It LOC 




CODE 


T T Ml? 

LINE 








1 ICC 

1 / JJ 


0BEA 


Z "7 
O / 


A 7 




• WUKiJ 


PT TT 
LfLI 1 




1 71A 
1 f DO 


n"ni7r 


1 n 
1 u 






"RYTT? 


1 ft 




1 TCI 


AT5 t?t\ 


fin 

Oil 


no 
uy 




* WUtuJ 






i 7e;fi 


UliLr 


on 
yu 


A 7 

U / 




• WUKU 


oiUKt 




1 icq 

i / :»y 


Udi 1 


nr 
UL 


nft 
uo 




■ wutviJ 






1 7ZA 

1 760 


An 17 T 

UBF3 














1 7 A 1 








| 






npr TM AT 


1 7 A 7 
1 / Z 








i 








1 / Oj 


nn tti 














1 7 Z A 
1 /04 


An r^T 


a 7 




LI 34 J 


• BY lb 


90/, UbLlWA 




1 /o4 


An f / 


a /. 


A 1 










1 / 04 


UDtA 


LL 












1 7fi'\ 


AO 17 tl 

utsr a 


V7 
CiZ 


no 
Uo 






Lid ji , 


T TMl' Tfl T-tFY 

LtllMiv 1U ntiA 


1 / DO 


i?n 


no 


n7 
u / 


UErLlT'l 


* nU rs_U 


JJULfULi 




1 7ft7 
1 / o / 




6.7 
/ 


n? 
uz 










1 76.8 


orn 1 


oa 






• DHL 


1 n 






nrn 7 




no 
uy 




• YiKJSSJJ 


tl ACT 




1 77fl 
1 / / U 


nrn A. 


on 
yu 


n 7 
u / 




TJADn 


O 1 UKUi 




17 71 
1 / / 1 


nr nfi. 
ul uo 


nr 

UL 


nA 
uo 




■ WUtUJ 






1 779 
1 / / Z 


nrn ft 

ULUO 






j 








17 71 


Ar nfl 
ULUo 






| 








1 77/, 

1 / /4 


0CO8 






j 






b LKLLiN h L L1W c ^ 


1 77c 

hid 


nr a ■ 
ULUO 














1 7 7 ^ 
1 / / 


nr Afl 
UL U 


Q 7 




T I C C C 

Ll jjj 


nvpr 


^0/ , \ ;LUiJh > >Ay 




I "7 "T £ 

I I lb 


rip f\ ri 


zo 


Jo 










1 / / 


OCOF 


Ay 












1 "7 7 "7 
III! 


UHU 


r i 


An 
UD 




t T/"> t>r\ 
, WOKJJ 




LINK IU UhLIMAL 


1 770 


Ar 1 7 
UL 1 Z 


nz 
Uo 


A 7 
U / 


tjo AAA 


• WUKU 


JJULUL 




1 770 

1 / / y 


nr 1 a 

UL 1 4 


Ar 

hL 


nfi 
uo 




* WUKU 


Kr KUn 




1 7 en 

1 / oU 


UL 1 


AS 


AA 
UA 




t v'i n 
* WUrLU 


7 ft T ic" c 
l-A 1 & b 




1 7ft 1 


nr 1 s 

UL 1 


T? A 
JLA 


nA 

UA 




• WUKIJ 






1 782 


or 1 a 














1 781 


nr 1 r 

Uo :L 


on 


u / 










1 78£ 
1/0*+ 


nr 1 it 

UL 1 JL 


nr 

UL 


OA 
UO 




• WUrLU 


CTTMT *s 




1785 


or20 














1 786 


or ? n 












;C0DE 


1 7ft 7 


nr ?n 












O IV ill Ijil ti JLitillJ W 


2 788 

1 / uu 


or 20 






I 








1 780 

1 / O y 


nr 70 


r s 




1* 1 JUO 


RYTF 
• D I J. E- 


^c^ * »rnn' ^rs 




1 780 


nr 7 1 
j^t 1 


ITS, 


4 J 










t 7 8Q 

1/07 


nr ? 

UL Z J 


L3 












1 7QH 

1 / ?u 


nr 7 fi 
UL Z 


UO 


nr 
UL 




* WUKU 


T 1 CtC 

I.I.})- , 




1 70 1 

1 /y 1 


nr 7 ft 
ULZo 


UO 


n 7 




* WUKU 


DUL-Ull 




1 7Q7 

i / y z 


nr 7 a 

UL ZA 


OA 


UB 




* WUKJJ 


i^l b r 




17 01 


nr 9r 
ULZL 


OT? 

yr 


fin 




* WUKiJ 


UUrLr 




i 7 0/, 


nr 7 c 
ULzL 


t 7 
Iz 


Ar 
UL 




• WORD 






1 795 


OC30 


B5 


0B 




• WORD 


LERAC 




1796 


0C32 


D7 


OB 




.WORD 


SMUDG 




1797 


0C34 


OC 


06 




* WORD 


SEMIS 




1798 


0C36 














1799 


0C36 














1800 


0C36 












<BU1LDS 


1801 


0C36 












SCREEN 43 LINE 2 


1802 


0C36 














1803 


0C36 


87 




L1582 


• BYTE 


$87,'<BUrLD',$D3 
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T THC 

LINE 






CODL 


T T"HT7 




1803 


OC3 7 


3C 


42 






1803 


0C3D 


TV *V 

D3 








1804 


0C3E 


20 


OC 




.WORD LI 568 


1805 


0C40 


D6 


07 


BUILD 


m WORD D0C0L 


1806 


0C42 


5D 


08 




. WORD ZERO 


1807 


0C44 


0B 


08 




.WORD CONST 


1808 


0C46 


OC 


06 




.WORD SEMIS 


1809 


0C48 










1810 


0C48 






» 




1811 


0C48 






« 




1812 


0C48 






» 




1813 


0C48 


85 




L1592 


.BYTE $85, I 


1813 


0C49 


44 


4F 






1813 


0C4D 


BE 








1814 


0C4E 


36 


OC 




t l/\t>r\ T i COO 

• WORD LlJtJZ 


1815 


OC50 


rv £ 

D6 


07 


DOES 


• WORD DOCOL 


1816 


0C52 


4C 


Oo 




-WORD RFROM 


1817 


0C54 


A8 


a a 
OA 




• WUKD LAI £5 


1818 


Art C C 

0C56 


EA 


A A 

OA 




T TAT3T\ TIT? A 

. WORD rr A 


i my 






a 7 






1 oZU 


UL DA 


i i 






UAuri perron 


1 821 


(JC5C 






* 




1 O 1 1 

1822 


0C5C 


A C 

A5 


AF 


DUUUh 


LDA Ir+1 


1 b2 3 


0C5E 


48 






r HA 


1 AH, 

1 az4 


UL Jf 


A K 

Ad 


A C 




T rift TO 


1825 


0C6 1 


46 






Tl 1.7 A 

PHA 


1826 


0C62 


AO 


02 




LDY # 2 


1827 


0C64 


BI 


Bl 




LDA (W),Y 


1828 


0C66 


85 


AE 




STA IP 


1829 


0C68 


C8 






INY 


1830 


0C69 


Bl 


Bl 




LDA (W),Y 


1831 


0C6B 


85 


AF 




STA IP+1 


1832 


0C6D 


18 






CLC 


1833 


0C6E 


A5 


Bl 




LDA W 


1834 


OC70 


69 


04 




ADC #4 


1835 


0C72 


48 






PHA 


1836 


OC73 


A5 


B2 




LDA W+l 


1837 


OC75 


69 


00 




ADC #0 


1838 


0C77 


4C 


3D 02 




JMP PUSH 


i mn 

1839 


0C7A 






j 




i o / n 
1 840 


OC 7 A 










1841 


0C7A 










1842 


0C7A 










i o/T 

I 04 J 


C\0 7 A 
UL/A 


OJ 








1843 


0C7B 


4 J 


4r 






1843 


0C7F 


D4 








1 fi A /. 




Aft 

HO 








1845 


0C82 


D6 


07 


COUNT 


. WORD DOCOL 


1846 


0C84 


3A 


07 




.WORD DUP 


1847 


0C86 


Al 


09 




.WORD ONEP 


1848 


0088 


22 


07 




.WORD SWAP 


1849 


0C8A 


8E 


07 




.WORD CAT 


1850 


0C8C 


OC 


06 




.WORD SEMIS 


1851 


0C8E 






t 




1852 


0C8E 






* 

1 





LINK TO ;C0DE 



D0ES> 

SCREEN 43 LINE 4 



LINK TO <BUILDS 



COUNT 

SCREEN 44 LINE 1 



LINK TO D0ES> 



TYPE 
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PAGE 0040 



LINE 


# LOG 




CODE 


LINE 










0C8E 






> 






P^TirUM A J. T T Miff 

SCREEN 44 LINE 


t R*i L 

lOJH 
















LO J J 








1* 1 D JM 








1 Q 5 5 


fir 1 ft it 


e /. 












1 ft ^ 
1 J J 




Uj 












1 □ C £ 

1856 


AO A 1 

0C93 


7A 


0C 




. WORD 


L1622 


; LINK TO COUNT 


1 OCT 
1<0 / 


ao o £ 
0C93 


DO 


AT 

0/ 


TYPE 


T 1AT5 A 

. WORD 


"A AO AT 

DO COL 




1 oco 

lo!>o 


nr o 7 
0C9 / 


6D 


UA 




T TATJ 1% 

• WUKD 


DDUP 




1859 


0C99 


56 


03 




.WORD 


ZBRAN 




1860 


0C9B 


18 


00 


L1639 


• WORD 


$18 


L1651-L1639 


1861 


0C9D 


08 


07 




.WORD 


OVER 




1862 


0C9F 


99 


06 




.WORD 


PLUS 




1863 


0CA1 


22 


07 




. WORD 


SWAP 




1864 


OCA 3 


DE 


03 




. WORD 


PDO 




1865 


OCAS 


F7 


03 


L1644 


. WORD 


I 




1866 


0CA7 


8E 


07 




.WORD 


CAT 




1867 


0CA9 


D7 


04 




.WORD 


EMIT 




1868 


0CAB 


77 


03 




.WORD 


PLOOP 




1869 


0CAD 


F8 


FF 


L1648 


.WORD 


$FFF8 


L1644-L1648 


10 /u 


Ar* a t 
UCAE 


1 7 


A 1 




.WORD 


BRAN 




1 Ct 7 1 

la / 1 


UCfll 


a /. 
(J4 


A A 
UU 


Ll o5U 


. WORD 


$4 


L1652-L1650 


I fl 7 
1 o / t 


np □ ^ 
ULU J 


i y 


A 7 


L 103 1 


. WOtuJ 


DROP 




1 ft 7 "i 




Ao 
UC 


A£ 


L103Z 


T TAT>T% 


SEMIS 




18/1 


Ao n 7 






| 








] S7 ^ 


nr b 7 
UU1> / 






j 






-TRAILING 


1 ft 7 


Of ft 7 












SCREEN 44 LINE 


1 Q 7 7 
1 O / / 


AOH 7 














1 S7» 
IB/8 


TiT B 7 


on 

tsy 




T 1 £E1 

LlDJ / 


. Hi It 


$89 t '~TRAlLIN',$C7 


10 7 

lo/o 


0CB8 


In 

ZD 


54 










1 Q70 
1 O / 


UL.CU 


A7 
C/ 












i o /y 


ao a i 


BE 


nc 
UL 




. WORD 


L1634 


; LINK TO TYPE 


l fiftfi 
1 oo u 




r>£ 
uo 




11 1 KA1 


. WUKD 


D0C0L 




1 fi ft i 
loci 


A, on <5 


JA 


A7 




. WUKD 


DUP 




1 Q CO 
1 Obi 


ucc / 


5D 


A ft 

08 




.WORD 


ZERO 




1 QQ^ 

i sis J 


uccy 


DE 


03 




. WORD 


PDO 




1 Q ft A 


Ao ah 
OCCB 


Do 


A7 
□ 7 


L 1663 


. WORD 


OVER 




1 OQC 

1 otso 


UOCD 


A ft 


A"? 




. WORD 


OVER 




1 Bob 


nr ox? 
UCCr 




At 

Ub 




. WORD 


PLUS 




1 Q O ^ 

1887 


0CD1 


65 


08 




. WORD 


ONE 




i O d (n 

1888 


0CD3 


FA 


09 




.WORD 


SUB 




1889 


0CD5 


8E 


07 




. WORD 


CAT 




1890 


0CD7 


7E 


08 




. WORD 


BL 




1891 


0CD9 


FA 


09 




. WORD 


SUB 




1892 


0CDB 


56 


03 




.WORD 


ZBRAN 




1893 


0CDD 


08 


00 


L1672 


. WORD 


8 


L1676-L1672 


1894 


0CDF 


IF 


06 




• WORD 


LEAVE 




AO 3 J 


nrFi 

\JK-t £j 1 


-j i 


m 

u.? 






BRAN 




1896 


0CE3 


06 


00 


L1675 


.WORD 


6 


L1678-L1675 


1897 


0CE5 


65 


08 


L1676 


.WORD 


ONE 




1898 


0CE7 


FA 


09 




. WORD 


SUB 




1899 


0CE9 


77 


03 


L1678 


.WORD 


PLOOP 




1900 


0CEB 


E0 


FF 


L1679 


. WORD 


$FFE0 


L1663-L1679 


1901 


OCED 


OC 


06 




. WORD 


SEMIS 




1902 


0CEF 






• 
> 








1903 


0CEF 






* 






C") 
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LINE 


if LOC 




CODE 


LINE 








1904 


0CEF 






» 




SCREEN 44 LINE 


8 


1905 


OCEF 






! 








1906 


OCEF 


84 




L1685 


n v TT? £ Q /. * / M * fx Q 

iBYTE \ * j ^Ay 






1906 


OCFO 


28 


2E 22 










1906 


OCF3 


A9 












1907 


OCF4 


B7 


OC 




•WORD LIoj/ 


; LINK TO -TRAILING 


1908 


0CF6 


D6 


07 


PDOTQ 


rTATin T\ft.j^/*iT 

. WORD DOCOL 






1909 


0CF8 


5D 


06 




. WUitU K 






1910 


OCFA 


82 


OC 




. WUiUJ tjUUNl 






1911 


OCFC 


3A 


07 




. WORD DUP 






1912 


OCFE 


Al 


09 




.WORD ONEP 






1913 


ODOO 


4C 


06 




. WORD RFROM 






1914 


0D02 


99 


06 




.WORD PLUS 






1915 


OD04 


3A 


06 




.WORD TOR 






1916 


OD06 


95 


OC 




.WORD TYPE 






1917 


0DO8 


OC 


06 




.WORD SEMIS 






1918 


ODOA 






i 








1919 


ODOA 






• 




11 

• 




1920 


ODOA 






; 




SCREEN 44 LINE 


12 


1921 


ODOA 






; 








1922 


ODOA 


C2 




L1701 


• BYTE $C2,'.',$A2 






1922 


ODOB 


2E 












1922 


ODOC 


A2 












1923 


ODOD 


EF 


OC 




.WORD L1685 


; LINK TO PDOTQ 




1924 


ODOF 


D6 


07 




.WORD DOCOL 






1925 


0D11 


67 


02 




•WORD CLIT 






1926 


0D13 


22 






.BYTE $22 






1927 


0D14 


63 


09 




.WORD STATE 






1928 


0D16 


79 


07 




. WORD AT 






1 929 


0D18 


JO 


03 




.WORD ZBRAN 






1930 


0D1A 


14 


00 


T 1 ^ ft ft 

Ll 709 


.WORD $14 


Ll 7 19-L1 709 




1931 


0D1C 


9F 


OB 




♦ WORD COMP 






1932 


0D1E 


F6 


OC 




• WORD PDOTQ 






1933 


0D2O 


70 


OE 




.WORD WORD 






1934 


0D22 


BD 


09 




. WORD HERE 






1935 


OD24 


8E 


07 




•WORD CAT 






1936 


0D26 


Al 


09 




. WORD ONEP 






1937 


0D28 


CD 


09 




T 7C\T»T\ ATT 

•WORD ALLOT 






1938 


0D2A 


37 


03 




.WORD BRAN 






1939 


0D2C 


OA 


00 


L1718 


.WORD $A 


L1723-L1718 




1940 


0D2E 


70 


OE 


L17 19 


.WORD WORD 






1941 


0D3O 


BD 


09 




.WORD HERE 






1942 


0D32 


82 


OC 




.WORD COUNT 






1 ft i *i 

1943 


0D34 


ft C 


uc 




.WORD TYPE 






1944 


0D36 


OC 


ft, £. 

06 


T 1 111 

Ll 723 


.WORD SEMIS 






1945 


0D38 














1946 


0D38 






; 








1947 


0D38 










EXPECT 




1948 


0D38 










SCREEN 45 LINE 


2 


1949 


0D38 






* 








1950 


0D38 


86 




L1729 


.BYTE $86, 'EXPEC', $D4 




1950 


0D39 


45 


58 










1950 


0D3E 


D4 












1951 


0D3F 


OA 


OD 




.WORD L1701 


; LINK TO 




1952 


0D41 


D6 


07 


EXPEC 


.WORD DOCOL 
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LINE J LOC CODE 



1953 


0D43 


08 


07 


1954 


0D45 


99 


06 


1955 


0D47 


08 


07 


1956 


0D49 


DE 


03 


1957 


0D4B 


DF 


04 


1958 


0D4D 


3A 


07 


1959 


0D4F 


67 


02 


1960 


0D51 


OE 




1961 


0D52 


C6 


08 


1962 


0D54 


79 


07 


1963 


OD56 


06 


OA 


1964 


0D58 


56 


03 


1965 


0D5A 


IF 


00 


1966 


0D5C 


19 


07 


1967 


OD5E 


67 


02 


1968 


0D60 


08 




1969 


0D61 


08 


07 


1970 


0D63 


F7 


03 


1971 


0D65 


06 


OA 


1972 


0D67 


3A 


07 


1973 


OD69 


4C 


06 


1974 


0D6B 


6D 


08 


1975 


0D6D 


FA 


09 


1976 


0D6F 


99 


06 


1977 


0D71 


3A 


06 


1978 


0D73 


FA 


09 


1979 


0075 


37 


03 


1980 


0D7 7 


27 


00 


1981 


0D79 


3A 


07 


1982 


0D7B 


67 


02 


1983 


0D7D 


OD 




1984 


0D7E 


06 


OA 


1985 


OD80 


56 


03 


1986 


0D82 


OE 


00 


1987 


0D84 


IF 


06 


1988 


0D86 


19 


07 


1989 


0D88 


7E 


08 


1990 


0D8A 


5D 


08 


1991 


0D8C 


37 


03 


1992 


0D8E 


04 


00 


1993 


OD90 


3A 


07 


1994 


0D92 


F7 


03 


1995 


OD94 


B5 


07 


1996 


OD96 


5D 


08 


1997 


0D98 


F7 


03 


1998 


0D9A 


Al 


09 


1999 


0D9C 


9D 


07 


2000 


0D9E 


D7 


04 


2001 


0DA0 


77 


03 


2002 


0DA2 


A9 


FF 


2003 


0DA4 


19 


07 


2004 


0DA6 


OC 


06 


2005 


0DA8 






2006 


0DA8 






2007 


0DA8 







LINE 





.WORD 


OVER 




.WORD 


PLUS 




.WORD 


OVER 




.WORD 


PDO 


L1736 


.WORD 


KEY 




. WORD 


DUP 




• WORD 


CLIT 




. BYTE 


$E 




.WORD 


PORIG 




.WORD 


AT 




.WORD 


EQUAL 




. WORD 


ZBRAN 


L1744 


. WORD 


$1F 




. WORD 


DROP 




. WORD 


CLIT 




. BYTE 


08 




. WORD 


OVER 




.WORD 


I 




.WORD 


EQUAL 




• WORD 


DUP 




.WORD 


RFROM 




.WORD 


TWO 




.WORD 


SUB 




• WORD 


PLUS 




.WORD 


TOR 




. WORD 


SUB 




. WORD 


BRAN 


L1759 


.WORD 


?27 


L1760 


.WORD 


DUP 




.WORD 


CLIT 




• BYTE 


$0D 




.WORD 


EQUAL 




.WORD 


ZBRAN 


L1765 


.WORD 


$0E 




• WORD 


LEAVE 




-WORD 


DROP 




. WORD 


BL 




.WORD 


ZERO 




. WORD 


BRAN 


L1771 


. WORD 


04 


L1772 


.WORD 


DUP 


L1773 


. WORD 


I 




• WORD 


CSTOR 




.WORD 


ZERO 




. WORD 


I 




. WORD 


ONEP 




.WORD 


STORE 


L1779 


. WORD 


EMIT 




.WORD 


PLOOP 


L1781 


.WORD 


$FFA9 




.WORD 


DROP 




.WORD 


SEMIS 



i 
i 
t 



L1760-L1744 



L1779-L1759 

L1772-L1765 
L1773-L1771 

L1736-L1781 
QUERY 

SCREEN 45 LINE 9 
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T TWF 


If LiUl> 




CODE 


"LINE 










nn a ft 

UDAO 






J 










UDAO 


OJ 




1 1 7KR 

Li 1 f 00 




$85,'QUER',$D9 


*i nnfl 

zuuy 




C 1 

J J. 


s S 
JJ 










2009 


Art A 

UDAD 


D9 












2010 


ATI f. I - 

ODAE 


9 
JO 


UL> 




• WUKU 


L1729 


; LINK TO EXPECT 


2011 


0DB0 


Tt C 

D6 


07 


QUERY 


• WORD 


DOCOL 




2012 


0DB2 


Do 


OS 




• WUKJJ 


TIB 




2013 


0DB4 


79 


U7 




• WUKJJ 


AT 




2014 


0DB6 


67 


02 




• WUKJJ 


CLIT 




2015 


0DB8 


50 






. BYTE 


80 80 


characters from terminal 


2016 


0DB9 


41 


0D 




• WORD 


EXPEC 




2017 


0DBB 


5D 


08 




• WORD 


ZERO 




2018 


0DBD 


20 


09 




.WORD 


IN 




2019 


0DBF 


9D 


07 




• WUKD 


STORE 




2020 


0DC1 


OC 


06 




. WUKJJ 






i r\ n 1 
ZUZ 1 


0DC3 






j 








9 no 9 
zuz z 


UULJ 












Y 


ZUZ J 


nri ^ 9 
UDL, J 






* 






CPDITTTM /. ^ T TKTT7 1 1 


9 n 9 A 

z uzh 


nnr 1 












Actually A&LI1 tiuXI 




firing 






T 1 SOA 


. BVTF 


5>L 1 , !?oU 




ZUZ J 


UL/Li^ 


so 












9 [~l9fs 
Z UZO 




AS 
AO 


uu 






LI loo 


; LINK IU QUERY 


9 ri 9 7 
ZUZ / 


nnr 7 


1JO 


n7 
u / 






DOCOL 




9 n 9 a 
ZuZo 




1 o 


no 






BLK 




9 f\9 fl 

z U z y 


Art d 
UDLii 


13 






• WUKU 


AT 




2030 


ODCD 


30 


n 9 




• WUKJJ 


ZBRAN 




2031 


0DCF 


2A 


00 


L 1 810 


■ WUKJJ 


$2A 


L1830-L1810 


2032 


0DD1 


65 


08 




• WORD 


ONE 




2033 


ODD 3 


18 


09 




.WORD 


BLK 




2034 


ODD 5 


49 


07 




• WORD 


PST0R 




2035 


0DD7 


5D 


08 




.WORD 


ZERO 




2036 


ODD 9 


20 


09 




. WORD 


IN 




2037 


0DDB 


9D 


07 




. WORD 


STORE 




2038 


0DDD 


18 


09 




• WORD 


BLK 




2039 


0DDF 


79 


07 




. WORD 


AT 




2040 


0DE1 


5D 


08 




.WORD 


ZERO, BSCR 




2040 


ODE 3 


B8 


08 










2041 


0DE5 


5B 


05 




T li'- | iT>T\ 

.WORD 


USLAS 




2042 


0DE7 


19 


07 




• WORD 


DROP 


fixed from model 


2043 


0DE9 


73 


06 




. WORD 


ZEQU 




2044 


0DEB 


56 


03 




T TAD It 

. WORD 


ZBRAN 




2045 


0DED 


08 


00 


L1824 


. WORD 







2046 


0DEF 


4Z 


no 




• WUKll 






Z / 


fir)T?i 

UUL 1 




nft 

uu 




• WORD 


RFROM 




9 ft AS 




I Q 


07 
u / 




. WORD 


DROP 




tut!; 




T7 


U-J 


T 1 82ft 


. WORD 


BRAN 




20SO 


0DF7 


06 


00 


L1829 


.WORD 


6 


L1832-L1829 


2051 


0DF9 


4C 


06 


L1830 


-WORD 


RFROM 




2052 


0DFB 


19 


07 




-WORD 


DROP 




2053 


0DFD 


0C 


06 


L1832 


-WORD 


SEMIS 




2054 


0DFF 














2055 


0DFF 














2056 


0DFF 












FILL 


2057 


0DFF 












SCREEN 46 LINE 1 


2058 


0DFF 
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LINE 


# LOG 




CODE 


LINE 






2059 


ODFF 


84 




L1838 


. BYTE 


$84, '1 


2059 


0E00 


46 


49 4C 








2059 


0E03 


CC 










2060 


0EO4 


C3 


OD 




• WORD 


L1804 


2061 


0E06 


D6 


07 


FILL 


. WORD 


DOCOL 


2062 


0E08 


22 


07 




. WORD 


SWAP 


2063 


OEOA 


3A 


06 




.WORD 


TOR 


2064 


OEOC 


08 


07 




.WORD 


OVER 


2065 


OEOE 


B5 


07 




.WORD 


CSTOR 


2066 


OEiO 


3A 


07 




.WORD 


DUP 


2067 


OE12 


Al 


09 




. WORD 


ONEP 


2068 


OE14 


4C 


06 




. WORD 


RFROM 


2069 


0E16 


65 


08 




.WORD 


ONE 


2070 


0E18 


FA 


09 




.WORD 


SUB 


2071 


QE1A 


FE 


04 




• WORD 


CMOVE 


2072 


0E1C 


OC 


06 




. WORD 


SEMIS 


2073 


OKIE 






; 






2074 


0E1E 






; 






2075 


0E1E 






; 






2076 


0E1E 






; 






2077 


0E1E 


85 




L1856 


.BYTE 


$85/1 


2077 


0E1F 


45 


52 








2077 


OE2 3 


C5 










2078 


0E24 


FF 


OD 




.WORD 


L1838 


2079 


0E26 


D6 


07 


ERASE 


.WORD 


DOCOL 


2080 


0E28 


5D 


08 




. WORD 


ZERO 


2081 


0E2A 


06 


OE 




.WORD 


FILL 


2082 


0E2C 


OC 


06 




. WORD 


SEMIS 


2083 


0E2E 






; 






2084 


0E2E 






; 






2085 


0E2E 






; 






2086 


0E2E 






; 






2087 


0E2E 


86 




L1866 


. BYTE 


$86,'] 


2087 


0E2F 


42 


4C 








2087 


0E34 


D3 










2088 


0E35 


IE 


OE 




• WORD 


L1856 


2089 


0E37 


D6 


07 


BLANK 


. WORD 


DOCOL 


2090 


0E39 


7E 


08 




.WORD 


BL 


2091 


0E3B 


06 


OE 




.WORD 


FILL 


2092 


0E3D 


OC 


06 




. WORD 


SEMIS 


2093 


0E3F 






t 






2094 


0E3F 






* 






2095 


0E3F 






.FILE F0R3/1 


2096 


0E3F 












2097 


0E3F 












2098 


0E3F 












2099 


0E3F 












2100 


0E3F 


84 




L1876 


. BYTE $84,'] 


2100 


0E40 


48 


4F 4C 








2100 


0E43 


C4 










2101 


0E44 


2E 


OE 




• WORD 


L1866 


2102 


0E46 


D6 


07 


HOLD 


.WORD 


DOCOL 


2103 


0E48 


2A 


02 




.WORD LIT,$] 


2103 


0E4A 


FF 


FF 








2104 


0E4C 


99 


09 




. WORD 


HLD 



; LINK TO X 



ERASE 

SCREEN 46 LINE 4 



; LINK TO FILL 



BLANKS 

SCREEN 46 LINE 7 



LINK TO ERASE 



HOLD 

SCREEN 46 LINE 10 



; LINK TO BLANKS 



fig-FORTH for 6502, Rel 1.1 
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LINE 


# LOC 




CODE 


2105 


0E4E 


49 


07 


2106 


0E50 


99 


09 


2107 


0E52 


79 


07 


2108 


0E54 


B5 


07 


2109 


0E56 


OC 


06 


2110 


0E58 






2111 


0E58 






2112 


0E58 






2113 


0E58 






2114 


0E58 


83 




2114 


0E59 


50 


41 


2114 


0E5B 


C4 




2115 


0E5C 


3F 


OE 


2116 


0E5E 


D6 


07 


2117 


0E60 


BD 


09 


2118 


0E62 


67 


02 


2119 


0E64 


44 




2120 


0E65 


99 


06 


2121 


0E67 


OC 


06 


2122 


0E69 






2123 


0E69 






2124 


0E69 






2125 


0E69 






2126 


0E69 


84 




2126 


0E6A 


57 


4F 52 


2126 


0E6D 


C4 




2127 


0E6E 


58 


OE 


2128 


0E7O 


D6 


07 


2129 


0E72 


18 


09 


2130 


0E74 


79 


07 


2131 


0E76 


56 


03 


2132 


0E78 


OC 


00 


2133 


0E7A 


18 


09 


2134 


0E7C 


79 


07 


2135 


0E7E 


D5 


14 


2136 


0E8O 


37 


03 


2137 


0E82 


06 


00 


2138 


0E84 


D6 


08 


2139 


0E86 


79 


07 


2140 


0E88 


20 


09 


2141 


0E8A 


79 


07 


2142 


0E8C 


99 


06 


2143 


0E8E 


22 


07 


2144 


0E90 


98 


04 


2145 


0E92 


BD 


09 


2146 


0E94 


67 


02 


2147 


0E96 


22 




2148 


0E9 7 


37 


OE 


2149 


0E99 


20 


09 


2150 


0E9B 


49 


07 


2151 


0E9D 


08 


07 


2152 


0E9F 


FA 


09 


2153 


0EA1 


3A 


06 


2154 


0EA3 


5D 


06 


2155 


0EA5 


BD 


09 



LINE 



.WORD PSTOR 
.WORD HLD 
■ WORD AT 
.WORD CSTOR 
. WORD SEMIS 



PAD 

SCREEN 46 LINE 13 



L1890 -BYTE $83,'FA',$C4 



PAD 



.WORD L1876 
.WORD DOCOL 
.WORD HERE 
.WORD CLIT 
.BYTE 68 
.WORD PLUS 
. WORD SEMIS 



LINK TO HOLD 



PAD is 68 bytes above here. 



WORD 

SCREEN 47 LINE 



L1902 .BYTE $84, 'WOR' ,$C4 



.WORD L1890 ; LINK TO PAD 

WORD .WORD DOCOL 

.WORD BLK 

-WORD AT 

.WORD ZBRAN 
L1908 .WORD $C L1914-L1908 

.WORD BLK 

.WORD AT 

.WORD BLOCK 

.WORD BRAN 
L1913 .WORD $6 L1916-L1913 
L1914 .WORD TIB 

.WORD AT 
L1916 .WORD IN 

.WORD AT 

.WORD PLUS 

.WORD SWAP 

.WORD ENCL 

• WORD HERE 

.WORD CLIT 

.BYTE $22 

.WORD BLANK 

. WORD IN 

. WORD PSTOR 

-WORD OVER 

.WORD SUB 

.WORD TOR 

.WORD R 

.WORD HERE 



fig-FORTH for 6502, Rel 1.1 
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LINE 


# LOC 




CODE 


LINE 








2156 


0EA7 


B5 


07 




.WORD 


CSTOR 




2157 


0EA9 


99 


06 




.WORD 


PLUS 




2158 


OEAB 


BD 


09 




.WORD 


HERE 




2159 


OEAD 


Al 


09 




• WORD 


O.NEP 




2160 


OEAF 


4C 


06 




. WORD 


RFRQM 




2161 


0EB1 


FE 


04 




.WORD 


CMOVE 




2162 


0EB3 


OC 


06 




.WORD 


SEMIS 




2163 


OEB5 






; 








2164 


0EB5 






; 






UPPER 


2165 


0EB5 






; 






SCREEN 47 LINE 12 


2166 


0EB5 






; 








2167 


0EB5 


85 




L1943 


.BYTE 


$85,'UPP£',$D2 


2167 


0EB6 


55 


50 










2167 


OEBA 


D2 












2168 


OEBB 


69 


OE 




. WORD 


LI 902 


; LINK TO WORD 


2169 


OEED 


D6 


07 


UPPER 


. WORD 


DOCOL 




2170 


OEBF 


08 


07 




. WORD 


OVER 


This routine converts text to u 


2171 


0EC1 


99 


06 




• WORD 


PLUS 


case. It allows interpretation 


2172 


0EC3 


22 


07 




• WORD 


SWAP 


from a terminal without a shift 


2173 


0EC5 


DE 


03 




. WORD 


PDO 


lock. 


2174 


0EC7 


F7 


03 


L1950 


-WORD 


I 




2175 


0EC9 


8E 


07 




.WORD 


CAT 




2176 


OECB 


67 


02 




. WORD 


CLIT 




2177 


OECD 


5F 






.BYTE 


$5F 




2178 


OECE 


3C 


OA 




.WORD 


GREAT 




2179 


OEDO 


56 


03 




.WORD 


ZBRAN 




2180 


0ED2 


09 


00 


L1956 


.WORD 


09 


L1961-L1956 


2181 


0ED4 


F7 


03 




.WORD 


I 




2182 


0ED6 


67 


02 




.WORD 


CLIT 




2183 


0ED8 


20 






.BYTE 


$20 




2184 


0ED9 


6A 


07 




.WORD 


TOGGL 




2185 


OEDB 


77 


03 


L1961 


.WORD 


PLOOP 




2186 


OEDD 


EA 


FF 


L1962 


.WORD 


SFFEA 


L1950-L1962 


2187 


OEDF 


OC 


06 




. WORD 


SEMIS 




2188 


0EE1 






i 








2189 


0EE1 






; 






(NUMBER) 


2190 


0EE1 






; 






SCREEN 48 LINE 1 


2191 


0EE1 






• 








2192 


0EE1 


88 




L1968 


-BYTE 


$88,' (NUMBER' ,$A9 


2192 


0EE2 


28 


4E 










2192 


0EE9 


A9 












2193 


OEEA 


B5 


OE 




.WORD 


L1943 


; LINK TO UPPER 


2194 


OEEC 


D6 


07 


PNUMB 


.WORD 


DOCOL 




2195 


OEEE 


Al 


09 


L1971 


.WORD 


ONEP 




2196 


OEFO 


3A 


07 




. WORD 


DUP 




2197 


0EF2 


3A 


06 




. WORD 


TOR 




2198 


0EF4 


8E 


07 




. WORD 


CAT 




2199 


0EF6 


6D 


09 




-WORD 


BASE 




2200 


0EF8 


79 


07 




.WORD 


AT 




2201 


OEFA 


01 


04 




.WORD 


DIGIT 




2202 


OEFC 


56 


03 




.WORD 


ZBRAN 




2203 


OEFE 


2C 


00 


L1979 


. WORD 


$2C 


L2001-L1979 


2204 


OFOO 


22 


07 




* WORD 


SWAP 




2205 


0F02 


6D 


09 




• WORD 


BASE 




2206 


0F04 


79 


07 




.WORD 


AT 





f ig- FORTH for 6502, Rel 1.1 .PAGE 0047 



T THB 
Li L 11 Li 


# t or 




CODE 


LINE 






7 7fi7 




21 


05 




.WORD 


USTAR 


Z Z 'J o 


ur v o 


1 9 


07 




.WORD 


DROP 


^ o no 
z zuy 


Ur UA 


AA 






.WORD 

• H ui\l, 


ROT 


loin 
z z i u 


Ur UL 


fin 


no 






BASE 


/ill 


Ur Ub 


7Q 


D7 




■ WORD 


AT 


ZZ 1Z 


Ur 1U 


71 
Z J 


Uj 




■ WUJVU 




ll\ 5 


UFi Z 


"D 7 
rjZ 


nt 
UO 




* WURJJ 




7 O 1 A 
ZZ 1 4 


Ur 1 A 








- UORT1 


DPL 

Li 


ZZ I 3 


U£ 1 


7 a 

/y 


n 7 




> WUlvU 


AT 


ZZ 1 & 


ntr 1 

OF 1 


A 1 

Al 


An 

uy 




» WUKU 




T\ 1 -t 

221/ 


OF 1A 


JO 


Uj 




- hUKU 


7T10 am 


2218 


0F1G 


uo 


UU 


T t QQ/, 
LI 551 


■ WUKU 


O 7 1 QQBJ 1 00 A 


2219 


Or IE 


65 


AO 

US 




* WUKJJ 




2220 


0FZU 


76 


09 




» WUKJJ 


urL 


2221 


UFiZ 


ay 


n 7 
U / 




* WUtUJ 


f Jl UK 


1 'I "7 1 

2222 


Ur Zh 


4L 


Ub 


Liyy o 




rir rLUrl 


O 7 T T 

2223 


UFZb 


51 


u J 




* WUKU 


no AW 




Ur Zo 


Lb 


t E 


t 7 nnn 

L Z UUU 


• WUrUJ 


<;irirrfi t i q 7 i — t 9 nnn 


ZzZD 


Ur ZA 


4L 


Ub 


t 7 nn i 

LZUUI 


* WUKJJ 


P CT}flM 

i\ i ivun 


^ 77fi 
Z ZZ b 


Ur zu 


fir 


uo 




• WUIuJ 




7 77 7 
ZZ z / 


OF 7 P 
ur Z d 






* 






Z Z Z O 


ur *, l 












7 7 79 


0F?F 






J 




SCREEN 48 LINE 6 


7 710 


flF ? F 
ur h_ 












7 711 


ur zil* 


Sfi 
o V 




L2007 


• BYTE 


S86 'NUMBE' SD2 


7 711 


n f?f 


4F 










7 711 

£ 4 J i. 


ur _>*4 












7 717 
Z ZJZ 


DF ^ 
ur jj 


F1 

cj r 


np 






T 1 ■ T TNK TO ^NTTKRFR 


7 711 
Z Z J J 


ur _5 / 


JJ D 


f»7 
u / 




• WUISjJ 


nnrr>T 




Ur 


jJJ 


AO 

uo 




* WUKJJ 


7 Fi?n 


2 Z j i 


0F3B 


Cn 
3D 


nil 

uo 




• WUKU 


Z^iiKU 


7 7 1 A 
ZZ JO 


Ur JJJ 


A A 


UA 




- rtUKJJ 


KU 1 


ZZ J / 


Ur ^r 


^ A 


A7 

u/ 




• WUK1/ 


HTTP 
JJU r 


ZZ jo 


Ur h 1 


A 1 

Al 


uy 




• WUKJJ 


nMFP 

UJ?i r»r 


7 7 lO 

zz jy 


Ur 4 J 


Oil 


n 7 




• wuiuj 


TAT 
LAI 


ZV4U 


Ur 


t> / 


H7 

uz 




* WUKJJ 


PT TT 
^ JjX 1 


/ 1 

ZZ41 


Ur / 


Zjj 






Tl V T 

» d 1 1 r# 


9 ZJJ 


7 7 £7 


ur *4o 


U D 


DA 




. WORD 

■ ft WI\±J 




77 £1 


PIT A A 
Ur ma 




07 




m WORD 


DUP 


7 ?££ 


ur ML 








m WORD 


TOR 


7 7 A "i 


fiFA F 
Ur *+ £ 


QQ 






* WORD 


PLUS 


77 Aft 
Z ZhO 


Ur 3U 




ri7 

u z 








ZZ4o 


Ur :)Z 


r r 


r r 








7 7 £7 

ZZ4 / 


OF 5 ! A 
ur -j h 


/ \J 


09 


T 7071 

>./ i- '-S i- ■} 


.WORD 


DPL 

U C J_i 




OF 5 6 
ur j u 


71/ 


07 

u / 




.WORD 


STORE 


7 7AQ 
ZZH? 


u" jo 


Fr 


OF 




. WORD 


PN1IMS 


7 7^0 
Z Z D U 


OF ^ A 
Ur 3ii 




u / 








2251 


0F5C 


8E 


07 




.WORD 


CAT 


2252 


0F5E 


7E 


08 




.WORD 


BL 


2253 


0F60 


FA 


09 




* WORD 


SUB 


2254 


0F62 


56 


03 




. WORD 


ZBRAN 


2255 


QF64 


15 


00 


L2031 


.WORD 


$15 L2042-L2031 


2256 


0F66 


3A 


07 




.WORD 


DUP 


2257 


0F68 


8E 


07 




.WORD 


CAT 


2258 


0F6A 


67 


02 




.WORD 


CLIT 



fig-FORTH for 6502, Rel 1.1 
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LINE 


# LOG 




CODE 


LINE 










2259 


0F6C 


2E 






. BYTE 


$2E 






2260 


0F6D 


FA 


09 




.WORD 


SUB 






2261 


0F6F 


5D 


08 




. WORD 


ZERO 






2262 


0F71 


11 


OB 




. WORD 


QERR 






2263 


0F7 3 


5D 


08 




.WORD 


ZERO 






2264 


OF75 


37 


03 




.WORD 


BRAN 






2265 


0F77 


DD 


FF 


L2041 


.WORD 


$FFDD 




L2023-L2041 


2266 


OF79 


19 


07 


L2042 


.WORD 


DROP 






2267 


0F7B 


4C 


06 




.WORD 


RFROM 






2268 


0F7D 


56 


03 




.WORD 


ZBRAN 






2269 


0F7F 


04 


00 


L2045 


. WORD 


4 




L2047-L2045 


2270 


0F81 


Fl 


06 




.WORD 


DM I Nil 






2271 


0F83 


OC 


06 


L2047 


.WORD 


SEMIS 






2272 


0F85 






; 










2273 


0F85 






; 








-FIND 


2274 


0F85 






; 








SCREEN 48 LINE 1 


2275 


0F85 






; 










2276 


0F85 


85 




L2052 


. BYTE 


$85 , ' -FIN' 


,5C4 


2276 


0F86 


2D 


46 












2276 


0F8A 


C4 














2277 


0F8B 


2E 


OF 




.WORD 


L2007 




; LINK TO NUMBER 


2278 


0F8D 


D6 


07 


DFIND 


.WORD 


DOCOL 






2279 


0F8F 


7E 


08 




. WORD 


BL 






2280 


0F91 


70 


OE 




. WORD 


WORD 






2281 


0F93 


BD 


09 




. WORD 


HERE 


) 


Optional allowing free 


2282 


0F95 


82 


OC 




• WORD 


COUNT 


1 


case from terminal. 


2283 


0F97 


BD 


OE 




. WORD 


UPPER 


) 




2284 


0F99 


BD 


09 




.WORD 


HERE 






2285 


0F9B 


4B 


09 




.WORD 


CON 






2286 


0F9D 


79 


07 




.WORD 


AT 






2287 


0F9F 


79 


07 




.WORD 


AT 






2288 


0FA1 


32 


04 




.WORD 


PFIND 






2289 


0FA3 


3A 


07 




. WORD 


DUP 






2290 


0FA5 


73 


06 




-WORD 


ZEQU 






2291 


0FA7 


56 


03 




.WORD 


ZBRAN 






2292 


0FA9 


OA 


00 


L2068 


.WORD 


$A 




L2073-L2068 


2293 


OFAB 


19 


07 




.WORD 


DROP 






2294 


OF AD 


BD 


09 




.WORD 


HERE 






2295 


OFAF 


A8 


OA 




.WORD 


LATES 






2296 


0FB1 


32 


04 




.WORD 


PFIND 






2297 


0FB3 


OC 


06 


L2073 


.WORD 


SEMIS 






2298 


0FB5 






; 










2299 


0FB5 






j 








(ABORT) 


2300 


OFB5 






; 








SCREEN 49 LINE 2 


2301 


0FB5 






; 










2302 


0FB5 


87 




L2078 


.BYTE 


$87 , * (ABORT* , $A9 


2302 


0FB6 


28 


41 












2302 


OFBC 


A9 














2303 


OFBD 


85 


OF 




. WORD 


L2052 




; LINK TO -FIND 


2304 


OFBF 


D6 


07 


PABOR 


. WORD 


DOCOL 






2305 


0FC1 


ID 


12 




. WORD 


ABORT 






2306 


0FC3 


OC 


06 




.WORD 


SEMIS 






2307 


0FC5 
















2308 


0FC5 














ERROR 


2309 


0FC5 














SCREEN 49 LINE 4 



fig-FORTH for 6502, Rel I. 1 
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LINE 


# L0C 




CODE 


LI Mi 








2310 


QFC:> 






» 








2311 


Ur Lj 


Q C 

J 






RVTF 


$85,'ERRO' ) $D2 


2 3 1 1 


Ur KjO 


is 












n n 1 1 

2311 


Apt a 
Ur 


ri7 

U Z 












2312 


Ur UrS 


11 D 


ur 




• WORD 


L2078 


; LINK TO (ABORT) 


2 J 1 j 


Ur LU 




n 7 

U / 




."WORD 


DOCOL 




ZJlH 


Ui: ur 


FF 


u O 




• WORD 


WARN 




7 n s 

ZJiJ 


flFTl 1 


7Q 


07 




.WORD 


AT 




Z J 1 


J J 


RR 


06 




.WORD 


ZLESS 

C- JjLi<J J 






Ur D D 


S ft 

J D 


U J 






7 BRAN 




z j i a 


Ur D/ 


Ai 


on 
uu 


T 7DQA 








2319 


0FD9 


BF 


Ur 






r AJJUrl 




ZJzO 


Ur Dr> 


BD 


uy 


T lAQfi 










Ur ULi 


Q 7 
oZ 


UU 






LrUJUN 1 




lill 


0FDF 


a £ 


An 

uc 






i. X rili 




2323 


0FE1 


F6 


OC 




• WORD 


PDOTQ 




2324 


0FE3 


04 






. BYTE 






2324 


0FE4 


20 


20 










2325 


0FE8 


6C 


15 




. WORD 


MESS 




2326 


0FEA 


E8 


05 




.WORD 


SPSTO 




2327 


OFEC 


19 


07 




• WORD 


DtUJr , .UKUr i 


lase room tor z error 


2327 


0FEE 


19 


07 










2328 


0FF0 


20 


09 




.WORD 


IN 




2329 


OF ¥2 


7 a 

79 


A7 

07 




T.TATJT5 


AT 




1 1 A 
Z J JO 


Ur r A 


1 fi 
1 B 


A Q 




. wuruJ 






A JJi. 


ur r u 


79 


f)7 




. WORD 


AT 




I $31 


Ur r o 




1 i 




* WUrUJ 


OTITT 




7 7 7 7 

Z j J 5 


Ur rA 


Ut 


Aft 




• WUlUJ 






7 7 1 i 
Z J J4 
















Z J J J 


Ur r U 












ID. 




Ur r L 












^TRFFN 49 I INF 9 


7 77 7 
Z J J / 


ur r U 






I 








7 11 Si 

iJJO 


ur r u 


0.1 




I 01 1 1 
i- 1 1 -3 


■RVTF 
• mil; 


Sfl^ 'ID* SAE 




"7 7 1 O 

Z jj« 


UFrD 


49 












O O T O 

233o 


0FFF 


AE 












O O T Q 


1 nnn 


V* D 


nv 
ur 






L2087 


LINK TO ERROR 


Z 34 U 


i 7 
J.UUZ 


17 ft 

DO 


A7 






nAr*AT 




9 ^ A 1 
t J ^ 1 


1 nni 


JEi 






. unsn 


rAD 








ft7 
D / 


n7 
uz 










o o a o 

Zi43 


i fine 


7 A 

zu 






u VTT? 


<7ri 




2344 


t n A A 

1009 


£ 7 

0/ 


A ^> 




L.TADri 

• WUKJJ 


TT 




2345 


100B 


5F 






. BY IE 






2346 


1Q0C 


Ail 


AO 

OE 




• WUKU 


C ILL 




2347 


1 A A"C 

1 'JUL 


1 A 

JA 


A 7 




UADn 
« WUK1J 


DUP 




2348 


1010 


EA 


OA 




.WORD 


PFA 




2349 


1012 


B8 


OA 




. WORD 


LFA 




2350 


1014 


08 


07 




T IAD Pi 

. WORD 


OVER 




2351 


1016 


FA 


09 




.WORD 


SUB 




2352 


1018 


5E 


0E 




.WORD 


PAD 




2353 


101A 


22 


07 




.WORD 


SWAP 




2354 


101C 


FE 


04 




.WORD 


CMOVE 




2355 


101E 


5E 


0E 




.WORD 


PAD 




2356 


1020 


82 


OC 




.WORD 


COUNT 




235 7 


1022 


67 


02 




.WORD 


CLIT 




2358 


1024 


IF 






.BYTE 


$1F 
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LINE 


# LOG 
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123E 












2644 


123E 












2645 


123E 






, 




COLD 


2646 


123E 










SCREEN 55 LINE 1 


2647 


123E 






, 






2648 


123E 


84 




L2423 


. BYTE 


$84,'COL',$C4 


2648 


123F 


43 


4F 4C 








2648 


1242 


C4 










2649 


1243 


15 


12 




.WORD 


L2406 ; LINK TO ABORT 


2650 


1245 


47 


12 


COLD 


.WORD 


*+2 


2651 


1247 


AD 


OC 02 




LDA ORIG+50C ; from cold start area 


2652 


124A 


8D 


BC 11 




STA FORTH+6 


2653 


124D 


AD 


OD 02 




LDA ORIG+$0D 


2654 


1250 


8D 


BD U 




STA FORTH+7 


2655 


1253 


AO 


15 




LDY #$15 


2656 


1255 


DO 


02 




BNE L2433 


2657 


1257 


AO 


OF 


WARM 


LDY #$0F 


2658 


1259 


AD 


10 02 


L2433 


LDA ORIG+$10 
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t t vrr 
L 1Mb 








T T u r 








z to y 


1 9 ^r 








CTi TTT> 








1 9 SF 

J. A J d 




1 1 r>? 




7 riA fiRTH-l-*! 1 1 








1 9 A 1 
1 ZD 1 


85 


B4 




QTA TTP-l-T 






9 A A 9 
ZOOZ 


1 9 A 9 
1 Z D J 


B9 


0C 02 


T 9 A 1 7 
L Z4 j / 










1 9££ 
1 Zoo 


91 


B3 




CTA /TT"D \ V 






1 z z / 
Z0O4 


1 9 Z Q 

1268 


88 






Tt PV 

DEY 






zbo5 


lzoy 


10 


F8 










r f t 
2666 


1 9 Ztj 

1 26B 


A9 


12 




LDA ff>AB0RT 


; actually #>(AB0RT+2) 


2667 


1 26D 


85 


AF 




STA IP+1 






2668 


126F 


A9 


IF 




LDA #<AB0RT+2 






2669 


1271 


85 AE 




STA IP 






2670 


1 1 "TO 

1273 


nft 
uo 






CLD 






2671 


1274 


Ay 


tr 




LDA #$6C 






26 72 


1 ^ "J £ 

12 76 


ft s 


Tin 




STA W-l 






9 £ "7 9 

26 7 3 


12 78 


Ar 


In Uj 




JMP RPST0+2 


And off we gol 




2674 


127B 






i 








2675 


127B 






> 




S->D 




2676 


12 7B 






> 




SCREEN 56 LINE 


T 
I 


2677 


12 7B 














lb la 


1 9 "Tia 
1 Z 7B 


SA 

OH 




L2453 


.BYTE $84, S-> 


,$C4 




2678 


1 2 7C 


s 9 


9Tl It 
ZD Jh 










ZD /O 


1 9 7T? 

1 z /r 


r /■ 












zo /y 


i Ton 
Izou 


JE 


12 




• WORD L^tjZi 


; LINK TO COLD 




9 Afifl 


1 9R9 
i ZOZ 


UO 


C\ 7 


cTrin 
b 1 UlJ 


* WUtvU jJUL-UL 








1 984 


9A 


AT 

U / 




.WORD DUP 






2682 


1286 


a Q 
o o 


Lj □ 




.WORD ZLESS 






2683 


1288 




UD 




.WORD MINUS 






2684 


128A 


fir 


uo 




.WORD SEMIS 






2685 


128C 






» 
















i 




+- 




9 AS.7 
zoo / 


1 9 fir 

1 Z 






J 




SCREEN 56 LINE 


4 


9fiRft 
L u o o 


l 9 fir 






t 








9 A 51 O 
Z Do? 


1 9 or 
1 Z ovj 


9 

82 




T 9 / 1 £ A 

LZ404 


. BYTE $82,*+',$AD 




2689 


128D 


2B 












2689 


128E 


AD 












2690 


128F 


7B 


12 




.WORD L2453 


; LINK TO S->D 




269 1 


1291 


D6 


07 


PM 


• WORD DOC0L 






2692 


129 J 


88 


06 




.WORD ZLESS 






2693 


lone 

1295 


56 


03 




.WORD ZBRAN 






2694 


1297 


04 


00 


L2469 


.WORD A 


L24 71-L2469 




9 Z fi ET 

2695 


linn 

1299 


D8 


06 




. WORD MINUS 






26y6 


129B 


OC 


06 


L2471 


.WORD SEMIS 






z6y / 


1 on 






> 








zoy o 


1 QT\ 






j 




D+- 




z oy y 


l o cm 






i 




SCREEN 56 LINE 


6 


o "7 An 


i zyu 






> 








z / U 1 




83 




T 9 A 7 A 
L: Zh / O 


. BYTE $83,'D+',$AD 




2701 


129E 


44 


2B 










2701 


12A0 


AD 












2702 


12A1 


8C 


12 




.WORD L2464 


; LINK TO +- 




2703 


12A3 


D6 


07 


DPM 


.WORD DOCOL 






2704 


12A5 


88 


06 




. WORD ZLESS 






2705 


12A7 


56 


03 




-WORD ZBRAN 






2706 


12A9 


04 


00 


L2481 


. WORD 4 


L2483-L2481 




2707 


12AB 


Fl 


06 




.WORD DMINU 
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LINE f LOC CODE 



2708 


12AD 


OC 


06 


2709 


12AF 






2710 


12AF 






2711 


12AF 






2712 


IzAF 








1 TAB 

X L Ar 






Til O 

2713 


1 inn 

IZBu 


41 


/. 7 


7 "7 1 


IzoZ 


JJ J 




7 1/. 


1 ZH J 




1 7 


2 715 


1 I'D t 

12B5 


Do 


07 


2716 


1 2B7 


JA 


ri 7 
07 


2717 


12B9 


91 


12 


2718 


12BB 


OC 


06 


2719 


12BD 






2720 


12BD 






2721 


12BD 






2722 


12BD 






2723 


12BD 


84 




2723 


12BE 


44 


41 42 


2723 


12C1 


D3 




2724 


12C2 


AF 


12 


2725 


12C4 


D6 


07 


2726 


12C6 


3A 


07 


2727 


12C8 


A3 


12 


2728 


12CA 


0C 


06 


2729 


12CC 






2730 


12CC 






2731 


12CC 






2732 


12CC 






2733 


12CC 


83 




2733 


12CD 


4D 


49 


2733 


12CF 


CE 




2734 


1 Out A 

12D0 


BD 


1 O 

12 


2735 


12D2 


D6 


07 


2 736 


1 7TW 

12D4 


n q 
Uo 


n "7 

07 


1 "J T ~7 

2 737 


1 2D6 


08 


□ 7 


2738 


12D8 


3C 


OA 


2 739 


12DA 


56 


03 


2740 


12DC 


04 


00 


2741 


12DE 


22 


07 


2742 


12E0 


19 


07 


2743 


12E2 


OC 


06 


2744 


12E4 






2745 


12E4 






2746 


12E4 






2747 


12E4 






2748 


12E4 


83 




2748 


12E5 


4D 


41 


2748 


12E7 


D8 




2749 


12E8 


CC 


12 


2750 


12EA 


D6 


07 


2751 


12EC 


08 


07 


2752 


12EE 


08 


07 


2753 


12F0 


IF 


OA 


2754 


12F2 


56 


03 



LINE 

L2483 .WORD SEMIS 

\ ABS 

; SCREEN 56 LINE 9 

L2488 .BYTE $83,'AB\$D3 



.WORD L2476 ; LINK TO D+- 

ABS .WORD DOCOL 
-WORD DUP 
.WORD PM 
.WORD SEMIS 

; DABS 

; SCREEN 56 LINE 10 

L2498 . BYTE $84, 'DAB* , $D3 



.WORD L2488 ; LINK TO ABS 

DABS .WORD DOCOL 
. WORD DUP 
.WORD DPM 
• WORD SEMIS 

\ MIN 

; SCREEN 56 LINE 12 

L2508 .BYTE $83,'MI',$CE 



MIN 



L2515 
L2517 

> 



.WORD L2498 
. WORD DOCOL 
.WORD OVER 
.WORD OVER 
.WORD GREAT 
.WORD ZBRAN 
.WORD 4 
• WORD SWAP 
.WORD DROP 
.WORD SEMIS 



LINK TO DABS 



L2517-L2515 



MAX 

SCREEN 56 LINE 14 



L2523 .BYTE $83,'MA',$D8 



.WORD L2508 ; LINK TO MIN 

MAX .WORD DOCOL 
.WORD OVER 
.WORD OVER 
.WORD LESS 
.WORD ZBRAN 
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LINE 


# LOG 




CODE 


LINE 




2755 


12F4 


04 


00 


L2530 


• WORD 


2756 


12F6 


22 


07 




. WORD 


2757 


12F8 


19 


07 


L2532 


. WORD 


2758 


12FA 


OC 


06 




.WORD 


2759 


12FC 






• 




2760 


12FC 






; 




2761 


12FC 






i 




2762 


I2FC 






» 




2763 


12FC 


82 




L2538 


.BYTE 


2763 


12FD 


4D 








2763 


12FE 


AA 








2764 


12FF 


E4 


12 




. WORD 


2765 


1301 


D6 


07 


MSTAR 


.WORD 


2766 


1303 


08 


07 




.WORD 


2767 


1305 


08 


07 




.WORD 


2768 


1307 


C3 


05 




.WORD 


2 769 


1309 


3A 


06 




-WORD 


2770 


130B 


B5 


12 




.WORD 


2771 


130D 


22 


07 




.WORD 


2772 


130F 


B5 


12 




.WORD 


2773 


1311 


23 


05 




.WORD 


2774 


1313 


4C 


06 




.WORD 


2775 


1315 


A3 


12 




.WORD 


2776 


1317 


OC 


06 




.WORD 


2777 


1319 






; 




2778 


1319 






; 




2779 


1319 






; 




2780 


1319 






; 




2781 


1319 


82 




L2556 


. BYTE 


2781 


131A 


4D 








2781 


131B 


AF 








2782 


131C 


FC 


12 




.WORD 


2783 


131E 


D6 


07 


MSLAS 


.WORD 


2784 


1320 


08 


07 




.WORD 


2785 


1322 


3A 


06 




. WORD 


2786 


1324 


3A 


06 




.WORD 


2787 


1326 


C4 


12 




.WORD 


2 788 


1328 


5D 


06 




. WORD 


2789 


132A 


B5 


12 




. WORD 


2790 


132C 


5B 


05 




.WORD 


2791 


132E 


4C 


06 




.WORD 


2792 


1330 


5D 


06 




.WORD 


2793 


1332 


C3 


05 




.WORD 


2794 


1334 


91 


12 




. WORD 


2795 


1336 


22 


07 




.WORD 


2796 


1338 


4C 


06 




• WORD 


2797 


133A 


91 


12 




.WORD 


2798 


133C 


22 


07 




.WORD 


2799 


133E 


OC 


06 




.WORD 


2800 


1340 










2801 


1340 










2802 


1340 










2803 


1340 










2804 


1340 


81 




L2579 


.BYTE 


2804 


1341 


AA 









4 L2532-L2530 

SWAP 

DROP 

SEMIS 

M* 

SCREEN 57 LINE 1 

$82,'M',$AA 



L2523 ; LINK TO MAX 

DOCOL 

OVER 

OVER 

XOR 

TOR 

ABS 

SWAP 

ABS 

USTAR 

RFROM 

DPM 

SEMIS 

M/ 

SCREEN 57 LINE 3 

$82,*M',$AF 



L2538 ; LINK TO M* 

DOCOL 

OVER 

TOR 

TOR 

DABS 

R 

ABS 
USLAS 
RFROM 
R 

XOR 

PH 

SWAP 

RFROM 

PM 

SWAP 

SEMIS 

* 

SCREEN 57 LINE 7 

$81,$AA 
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LINE 


# LOG 




CODE 


LINE 






2805 


1342 


19 


13 




.WORD L2556 ; 


LINK TO M/ 


2806 


1344 


D6 


07 


STAR 


.WORD DOCOL 




2807 


1346 


23 


05 




.WORD USTAR 




2808 


1348 


19 


07 




. WORD DROP 




2809 


134A 


OC 


06 




.WORD SEMIS 




2810 


134C 






; 






2811 


134C 






; 




/MOD 


2812 


134C 






; 




SCREEN 57 LINE 


2813 


134C 






; 






2814 


134C 


84 




L2589 


.BYTE $84,'/MO',$C4 




2814 


134D 


2F 


4D 4F 








2814 


1350 


C4 










2815 


1351 


40 


13 




.WORD L2579 j 


LINK TO * 


2816 


1353 


D6 


07 


SLM0D 


.WORD DOCOL 




2817 


1355 


3A 


06 




.WORD TOR 




2818 


1357 


82 


12 




.WORD STOD 




2819 


1359 


4C 


06 




.WORD RFROM 




2820 


135B 


IE 


13 




.WORD MSLAS 




2821 


135D 


OC 


06 




.WORD SEMIS 




2822 


135F 






; 






2823 


135F 










/ 


2324 


135F 






i 




SCREEN 57 LINE 


2825 


135F 






J 






2826 


135F 


81 




L2601 


•BYTE $81,$AF 




2826 


1360 


AF 










2827 


1361 


4C 


13 




.WORD L2589 ; 


LINK TO /MOD 


2828 


1363 


D6 


07 


SLASH 


. WORD DOCOL 




2829 


1365 


53 


13 




.WORD SLMOD 




2830 


1367 


22 


07 




.WORD SWAP 




2831 


1369 


19 


07 




• WORD DROP 




2832 


136B 


0C 


06 




.WORD SEMIS 




2833 


136D 






; 






2834 


136D 






; 




MOD 


2835 


136D 






; 




SCREEN 57 LINE 


2836 


136D 






* 
■ 






2837 


136D 


83 




L2612 


. BYTE $83,'MO',$C4 




2837 


136E 


4D 


4F 








2837 


1370 


C4 










2838 


1371 


5F 


13 




.WORD L2601 ; 


LINK TO / 


2839 


1373 


D6 


07 


MOD 


•WORD DOCOL 




2840 


1375 


53 


1 "i 

13 




•WORD SLMOD 




2 841 


1377 


19 


07 




.WORD DROP 




2842 


1379 


OC 


06 




.WORD SEMIS 






1 1 To 

1 3/B 






» 






not 1 

2844 


137B 






» 




*/M0D 


2845 


137B 






» 




SCREEN 57 LINE 


2846 


137B 












2847 


137B 


85 




L2622 


. BYTE $85,'*/MO',$C4 




2847 


137C 


2A 


2F 








2847 


1380 


C4 










2848 


1381 


6D 


13 




.WORD L2612 ; 


LINK TO MOD 


2849 


1383 


D6 


07 


SSM0D 


.WORD DOCOL 




2850 


1385 


3A 


06 




.WORD TOR 




2851 


1387 


01 


13 




.WORD MSTAR 




2852 


1389 


4C 


06 




.WORD RFROM 
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LINE 


# LOC 




CODE 


LINE 








2853 


138B 


IE 


13 




.WORD 


MS LAS 




2854 


1 3SD 


OC 


06 




. WORD 


SEMIS 






1 38F 














O O C £ 

2656 


138F 






• 






*/ 


285/ 


1 1 Op 

138F 






> 






SCREEN 57 LINE 


2858 


138F 














2859 


138F 


82 




L2634 


.BYTE 


$82, '** ,$AF 




2859 


1390 


2A 












2859 


1391 


AF 












2860 


1392 


7B 


13 




.WORD 


L2622 ; 


LINK TO */MOD 


2S61 


1394 


D6 


07 


SSLAS 


.WORD 


D0C0L 




2862 


1396 


83 


13 




. WORD 


SSM0D 




2863 


1398 


22 


07 




-WORD 


SWAP 




2864 


139A 


19 


07 




• WORD 


DROP 




2865 


139C 


OC 


06 




.WORD 


SEMIS 




2866 


139E 






; 








2867 


139E 






; 






M/MOD 


2868 


139E 






i 






SCREEN 57 LINE 


2869 


139E 






; 








2870 


139E 


85 




L2645 


• BYTE 


$85,'M/MO',SC4 




2870 


139F 


4D 


2F 










2870 


13A3 


C4 












2871 


13A4 


8F 


13 




. WORD 


L2634 ; 


LINK TO */ 


2872 


13A6 


D6 


07 


MSMOD 


.WORD 


DOCOL 




2873 


13A8 


3A 


06 




. WORD 


TOR 




2874 


13AA 


5D 


08 




. WORD 


ZERO 




2875 


13AC 


5D 


06 




.WORD 


R 




2876 


13AE 


5B 


05 




• WORD 


USLAS 




2877 


13B0 


4C 


06 




.WORD 


RFROM 




2878 


13B2 


22 


07 




-WORD 


SWAP 






1 JB4 


3A 


06 




.WORD 


TOR 




2880 


13B6 


5B 


05 




-WORD 


USLAS 




2881 


13B8 


4C 


06 




.WORD 


RFROM 




Za8Z 


13BA 


OC 


06 




. WORD 


SEMIS 




Z8o J 


1 3BC 






> 








2884 


13BC 






i 






USE 


2885 


13BC 






• 






SCREEN 58 LINE 


2886 


13BC 






* 

> 








2887 


13BC 


83 




L2662 


. BYTE 


$83, 'US' ,$C5 




2887 


13BD 


55 


53 










2887 


133F 


C5 












2888 


13C0 


9E 


13 




.WORD 


L2645 ; 


LINK TO M/MOD 


2889 


13C2 


31 


08 


USE 


.WORD 


DOVAR 




2890 


13C4 


60 


3B 




.WORD 


DAREA 




2891 


13C6 






; 








2892 


13C6 






> 






PREV 


toy j 














SCREEN 59 LINE 


2894 


13C6 














2895 


13C6 


84 




L2670 


. BYTE 


$84,'PRE',$D6 




2895 


13C7 


50 


52 45 








2895 


13CA 


D6 












2896 


13CB 


BC 


13 




.WORD 


L2662 ; 


LINK TO USE 


2897 


13CD 


31 


08 


PREV 


.WORD 


DOVAR 




2898 


13CF 


60 


3B 




• WORD 


DAREA 




2899 


13D1 






> 
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LINE # LOC CODE LINE 



2900 


13D1 










+BUF 


2901 


13D1 






■ 




SCREEN 58 LINE 4 


2902 


13D1 












2903 


1 3Dl 


84 




L2678 


.BYTE 


$84 ,'+BU' $C6 






2B 


42 55 








£. P \J J 


1 3D 5 


C6 










2904 


13D6 


C6 


13 




.WORD 


L2670 ; LINK TO PREV 


2905 


13D8 


D6 


07 


PBUF 


. WORD 


DO COL 


2906 


13DA 


2A 


02 




. WORD 


LIT 


2907 


13DC 


84 


00 




. WORD 


SSIZE+4 holds block one sector 


Z. P U O 


13DE 


99 


06 




. WORD 


PLUS 


2909 


13E0 


3A 


07 




. WORD 


DUP 


2910 


13E2 


AO 


08 




.WORD 


LIMIT 




1 3F4 


06 


OA 




.WORD 


EQUAL 


291 ? 


13F6 


56 


03 




.WORD 


ZBRAN 




1 3F8 


06 


00 


L2688 


.WORD 


6 L2691-L2688 


2914 


13EA 


1 9 


07 




.WORD 


DROP 


2915 

L P X J 


13EC 


94 


08 




.WORD 


FIRST 


291ft 


13EE 


3A 


07 


L2691 


.WORD 


DUP 


?Q 1 7 


1 3F0 


CD 


13 




.WORD 


PREV 


^ .7 j . 


] ^F2 

Jr. JI J- 


79 


07 




.WORD 


AT 


2919 


1 3F4 


FA 


09 




. WORD 


SUB 


2920 


13F6 


OC 


06 




.WORD 


SEMIS 


2921 


13FS 












2922 


13F8 






! 




UPDATE 


2923 


13FS 






- 




SCREEN 58 LINE 8 


2924 


13F8 












2925 


13F8 


86 




L2700 


. BYTE 


$86, 'UPDAT', $C5 


2925 


13F9 


55 


50 








2925 


13FE 


C5 










2926 


13FF 


Dl 


13 




• WORD 


L2678 ; LINK TO +BUF 


2927 


1401 


D6 


07 


UPDAT 


. WORD 


DOCOL 


2928 


1403 


CD 


13 




• WORD 


PREV 


2929 


1405 


79 


07 




.WORD 


AT 


2930 


1407 


79 


07 




. WORD 


AT 


2931 


1409 


2A 


02 




.WORD 


LIT, $8000 


291 ] 

A J J It 


140B 


00 


80 










1 AOT) 


AT) 


05 




. WORD 


OR 








13 

-1- — » 




. WORD 


PREV 


2 9 34 


1411 


79 


07 




. WORD 


AT 


2935 


1413 


9D 


07 




-WORD 


STORE 


2936 


1415 


0C 


06 




.WORD 


SEMIS 


2937 


1417 












2938 


1417 










FLUSH 


2939 


1417 












2940 


1417 


85 




L2705 


.BYTE 


$85,'FLUS',$C8 


2940 


1418 


46 


4C 








2940 


141C 


C8 










2941 


141D 


F8 


13 




.WORD 


L27O0 J LINK TO UPDATE 


2942 


141F 


D6 


07 




. WORD 


DOCOL 


2943 


1421 


AO 


08 




.WORD 


LIMIT, FIRST, SUB 


2943 


1423 


94 


08 








2943 


1425 


FA 


09 








2944 


1427 


AC 


08 




.WORD 


BBUF.CLIT 


2944 


1429 


67 


02 









f ig-FORTH for 6502, Rei 1.1 PAGE 0062 



LINE 


$ LOG 




CODE 


LINE 








2945 


142B 


04 






.BYTE 


4 




2946 


14 2C 


99 


06 




.WORD 


PLUS , SLASH, ONEP 




2946 


142E 


63 


13 










2946 


1430 


Al 


09 










2947 


1432 


5D 


08 




.WORD 


ZERO.PDO 




2947 


1434 


DE 


03 










2948 


1436 


2A 


02 


L2835 


.WORD 


LIT, $7FFF,BUFFR 




2948 


1438 


FF 


7F 










2948 


143A 


8D 


14 










2949 


143C 


19 


07 




• WORD 


DROP.PLOOP 




2949 


143E 


77 


03 










2950 


1440 


F6 


FF 


L2839 


• WORD 


$FFF6 L2835-L2839 




2951 


1442 


OC 


06 




• WORD 


SEMIS 




2952 


1444 






; 








2953 


1444 






; 








2954 


1444 






; 




EMPTY-BUFFERS 




2955 


1444 






; 




SCREEN 58 LINE 


11 


2956 


1444 






; 








2957 


1444 


8D 




L2716 


. BYTE 


$8D, 'EMPTY-BUFFER* , $D3 




2957 


1445 


45 


4D 








2957 


1451 


D3 












2958 


1452 


17 


14 




. WORD 


L2/05 ; LINK TO FLUSH 




2959 


1454 


Do 


07 




.WORD 


DOCOL 




2960 


1456 


94 


08 




. WORD 


FIRST 




2961 


1458 


AO 


08 




.WORD 


LIMIT 




2962 


145A 


08 


07 




.WORD 


OVER 




2963 


145C 


FA 


09 




- WORD 


SUB 




2964 


145E 


26 


OE 




.WORD 


ERASE 




2965 


1460 


OC 


06 




. WORD 


SEMIS 




2966 


1462 






; 








2967 


1462 






; 




DRO 




2968 


1462 






; 




SCREEN 58 LINE 


14 


2969 


1462 






; 








2970 


1462 


83 




L2729 


. BYTE 


$83,'DR',$BO 




2970 


1463 


44 


52 










2970 


1465 


BO 












2971 


1466 


44 


14 




. WORD 


L2716 ; LINK TO EMPTY-BUFFERS 


2972 


1468 


D6 


07 


DRO 


. WORD 


DOCOL 




2973 


146A 


5D 


08 




.WORD 


ZERO 




2974 


146C 


3E 


09 




. WORD 


OFSET 




2975 


146E 


9D 


07 




. WORD 


STORE 




2976 


1470 


OC 


06 




.WORD 


SEMIS 




2977 


1472 






; 








2978 


1472 






; 




DR1 




2979 


1472 






; 




SCREEN 58 LINE 


15 


2980 


1472 






; 








2981 


1472 


83 




L2740 


.BYTE 


$83,'DR',$B1 




2981 


1473 


44 


52 










2981 


1475 


Bl 












2982 


1476 


62 


14 




• WORD 


L2729 ; LINK TO DRO 




2983 


1478 


D6 


07 




-WORD 


DOCOL 




2984 


147A 


2A 


02 




.WORD 


LIT, SECTR sectors per drive 




2984 


147C 


20 


03 










2985 


147E 


3E 


09 




.WORD 


OFSET 




2986 


1480 


9D 


07 




.WORD 


STORE 





fig- FORTH for 6502, Rel 1.1 



PAGE 0063 



LINE 


ft t 

if LOC 






Li j. nr. 






2987 


1482 


OC 


U6 




. WUKU 




2988 


1484 












2989 


1484 






» 




T-) T T T"" T - * T"l 

BUFFER 


2990 


1484 






; 




SCREEN 59 LINE 


2991 


1484 






; 






2992 


1484 


86 




L2751 


. BYTE 


$86,'BUFFE*,$D2 


2992 


1485 


42 


55 








2992 


148A 


D2 










2993 


148B 


72 


14 




. WORD 


L2740 ; LINK TO DR1 


2994 


148D 


D6 


07 


BUFFR 


. WORD 


DOCOL 


2995 


148F 


C2 


13 




. WORD 


USE 


2996 


1491 


79 


07 




.WORD 


AT 


2997 


1493 


3A 


07 




. WORD 


DUP 


2998 


1495 


3A 


06 




. WORD 


TOR 


2999 


1497 


D8 


13 


L2758 


. WORD 


PBUF 


3000 


1499 


56 


03 




. WORD 


ZBRAN 


3001 


149B 


FC 


FF 


L2760 


-WORD 


$FFFC L2 758-L2760 


3002 


149D 


C2 


13 




.WORD 


USE 


3003 


14 9F 


9D 


07 




• WORD 


STORE 


3004 


14A1 


5D 


06 




.WORD 


R 


3005 


14A3 


79 


07 




. WORD 


Al 


3006 


14A5 


88 


06 




.WORD 


ZLESS 


3007 


14A7 


56 


03 




• WORD 


ZBRAN 


3008 


14A9 


14 


00 


T T T i ~~J 

L2767 


. WORD 


514 L2 776-L2/67 


3009 


14AB 


5D 


06 




.WORD 


R 


3010 


14AD 


AE 


09 




.WORD 


TWOP 


301 1 


14AF 


5D 


06 




.WORD 


R 


3012 


14B1 


79 


07 




.WORD 


AT 


3013 


14B3 


2A 


02 




. WORD 


LIT, $7FFF 


3013 


14B5 


FF 


7F 








3014 


14B7 


98 


05 




.WORD 


ANDD 


3015 


14B9 


5D 


08 




.WORD 


ZERO 


3016 


14BB 


89 


16 




• WORD 


RSLW 


3017 


14BD 


5D 


06 


L2776 


. WORD 


R 


3018 


143F 


9D 


07 




. WORD 


STORE 


3019 


14C1 


5D 


06 




.WORD 


R 


3020 


14C3 


CD 


13 




.WORD 


PREV 


3021 


14C5 


9D 


07 




.WORD 


STORE 


3022 


14C7 


4C 


06 




.WORD 


RFROM 


3023 


14C9 


AE 


09 




. WORD 


TWOP 


3024 


14CB 


OC 


06 




• WORD 


SEMIS 


3025 


14CD 












3026 


14CD 






> 




BLOCK 


3027 


14CD 










SLRLLN bu linl 


3028 


14CD 












3029 


14CD 


85 




L2 788 


.BYIL 


585, BLOC ,?CB 


3029 


14CE 


42 


4C 








3029 


14D2 


CB 










3030 


14D3 


84 


14 




. WORD 


L2751 ; LINK TO BUFFER 


3031 


14D5 


D6 


07 


BLOCK 


. WORD 


DOCOL 


3032 


14D7 


3E 


09 




.WORD 


OF SET 


3033 


14D9 


79 


07 




-WORD 


AT 


3034 


14DB 


99 


06 




.WORD 


PLUS 


3035 


HDD 


3A 


06 




.WORD 


TOR 


3036 


14DF 


CD 


13 




.WORD 


PREV 
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LINE 


# LOG 




CODE 


LINE 






3037 


14E1 


79 


07 




. WORD 


AT 


3038 


14E3 


3A 


07 




.WORD 


DUP 


3039 


14E5 


79 


07 




.WORD 


AT 


3040 


14E7 


5D 


06 




.WORD 


R 


3041 


14E9 


FA 


09 




.WORD 


SUB 


3042 


14EB 


3A 


07 




.WORD 


DUP 


3043 


14ED 


99 


06 




. WORD 


PLUS 


3044 


14EF 


56 


03 




. WORD 


ZBRAN 


3045 


14F1 


34 


00 


L2804 


.WORD 


$34 


3046 


14F3 


D8 


13 


L2805 


. WORD 


PBUF 


3047 


14F5 


73 


06 




.WORD 


ZEQU 


3048 


14F7 


56 


03 




. WORD 


ZBRAN 


3049 


14F9 


14 


00 


L2808 


. WORD 


$14 


3050 


14FB 


19 


07 




. WORD 


DROP 


3051 


14FD 


5D 


06 




. WORD 


R 


3052 


14FF 


8D 


14 




. WORD 


BUFFR 


3053 


1501 


3A 


07 




. WORD 


DUP 


3054 


1503 


5D 


06 




. WORD 


R 


3055 


1505 


65 


08 




. WORD 


ONE 


3056 


1507 


89 


16 




• WORD 


RSLW 


3057 


1509 


6D 


08 




• WORD 


TWO 


3058 


150B 


FA 


09 




.WORD 


SUB 


3059 


150D 


3A 


07 


L2818 


. WORD 


DUP 


3060 


15 OF 


79 


07 




.WORD 


AT 


3061 


1511 


5D 


06 




.WORD 


R 


3062 


1513 


FA 


09 




.WORD 


SUB 


3063 


1515 


3A 


07 




. WORD 


DUP 


3064 


1517 


99 


06 




.WORD 


PLUS 


3065 


1519 


73 


06 




.WORD 


ZEQU 


3066 


151B 


56 


03 




.WORD 


ZBRAN 


3067 


151D 


D6 


FF 


L2826 


.WORD 


$FFD6 


3068 


15 IF 


3A 


07 




.WORD 


DUP 


3069 


1521 


CD 


13 




.WORD 


PREV 


3070 


1523 


9D 


07 




.WORD 


STORE 


3071 


1525 


4C 


06 


L2830 


.WORD 


RFROM 


3072 


1527 


19 


07 




.WORD 


DROP 


3073 


1529 


AE 


09 




.WORD 


TWOP 


3074 


152B 


OC 


06 




. WORD 


SEMIS 


3075 


152D 






• 
> 






3076 


152D 






> 






3077 


152D 






. FILE FOR4/2 


3078 


152D 






; START OF FORTH 4 


3079 


152D 






■ 






3080 


152D 






> 






3081 


152D 












3082 


152D 












3083 


152D 






* 
> 






3084 


152D 












3085 


152D 


86 




L2838 


-BYTE 


$86,' 


3085 


152E 


28 


4C 








3085 


1533 


A9 










3086 


1534 


CD 


14 




.WORD 


L2788 


3087 


1536 


D6 


07 


FLINE 


. WORD 


DOCOL 


3088 


1538 


3A 


06 




. WORD 


TOR 


3089 


153A 


88 


08 




.WORD 


CSLL 



L2830-L2804 



L2818-L2808 



L2805-L2826 



; END OF BLOCK 



(LINE) 

SCREEN 61 LINE 2 



LINK TO BLOCK 
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LINE # LOC CODE LINE 



1 nnn 

3090 


1 ^ 1r 
15 JL 


a r 1 
AL 


n Q 
UO 




• WUKJJ 






I j jr. 




i 1 
l j 




. WORD 




j-uy i 


1 s /, n 














1 J <\L 


Bo 


u 




• VVUKJJ 






1 J H *4 


A A 


1 1 

1 3 




. WORD 


STAR 






y y 


uo 




* WUxvU 


PT TT^ 
r LrU c> 


3uy t> 




DD 


I A 

1 H 




• WUJKJJ 


tit nr^v 


309 7 


1 CI,* 

134 A. 


CI Q 

y y 


Jo 




ijn"Dn 
• V*UKJJ 




1 n n o 

3098 


1 3niC 




no 
UtJ 




Tjn"D"n 
• WuKJJ 




3099 


1 54E 


oc 


06 




. WUKJJ 


C TUT C 


3100 


1550 






■ 






3101 


1550 










• LINE 


3102 


1550 










SCREEN 61 LINE 


3L03 


1550 






> 






3104 


1550 


85 




L2857 


. KYT K 


$85, .LIN ,$C5 


3104 


1551 


2E 


4C 








3104 


1555 


C5 










3105 


1556 


2D 


15 




.WORD 


L2838 ; LINK TO (LINE) 


3106 


1558 


D6 


07 


DLINE 


-WORD 


D0C0L 


3107 


155A 


36 


15 




. WORD 


PLINE 


3108 


155C 


C3 


OC 




.WORD 


DTRAI 


3109 


155E 


95 


OC 




.WORD 


TYPE 


3110 


1560 


OC 


06 




• WORD 


SEMIS 


3111 


1562 






■ 






ill*"* 

3112 


1562 










MESSAGE 


3113 


i & t 
1562 






■ 




ooKtLN Dl LlfiL 


3114 


t e £. i 

1562 












31 j-5 


T C £l O 

1 joz 


o 7 






. BYTE 




"il s 
jiij 


i ^ ft i 


An 


AS 








nit 


1 ^ A Q 












3110 


1 C £, A 
I J OA 


jU 






• WUKJJ 


T • T TWV TH T TWIT 


Til 7 




r\fi 
U 


n 7 


MT7Q C 


• rYUrUJ 




3 I I O 






no 




. WUKJJ 


T*T ADM 


3119 




79 


07 




• WUKJJ 


AT" 

AI 


3120 


157 2 


56 


03 




• WORD 


-inn AM 

ZBRAN 


3121 


1574 


IB 


00 


L2S74 


. WORD 


$1B L2888-L2874 


3122 


1576 


6D 


OA 




.WORD 


DDUP 


3123 


1578 


56 


03 




• WORD 


ZBRAN 


3124 


15 7A 


11 


00 


L287 7 


• WORD 


$11 L2886-L2877 


3125 


157C 


67 


02 




. WORD 


CLIT 


3126 


157E 


04 






• BYTE 


4 


3127 


157F 


3E 


09 




.WORD 


OF SET 


3128 


1581 


79 


07 




. WORD 


AT 


3129 


T C O 1 

1583 




n o 
08 




.WORD 


BSCR 


3130 


1585 


63 


13 




.WORD 


SLASH 


3131 


1587 


FA 


09 




. WORD 


SUB 


3132 


1589 


58 


15 




.WORD 


DLINE 


3133 


1588 


37 


03 


L2886 


.WORD 


BRAN 


3134 


158D 


0D 


00 


L2887 


.WORD 


13 L2891-L2887 


3135 


158F 


F6 


OC 


L2888 


. WORD 


PDOTQ 


3136 


1591 


06 






. BYTE 


6, 'MSG # ' 


3136 


1592 


4D 


53 








3137 


1598 


5D 


19 




.WORD 


DOT 


3138 


159A 


OC 


06 


L2891 


. WORD 


SEMIS 


3139 


159C 






• 
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LINE 


# LOC 




CODE 


LINE 




3140 


159C 










3141 


159C 






! 




3142 


159C 






! 




3143 


159C 


84 




L2896 


. BYTE $84,'LOA',$C4 


3143 


159D 


4C 


4F 41 






3143 


15A0 


C4 








3144 


15A1 


62 


15 




.WORD L2868 ; 


3145 


15A3 


D6 


07 


LOAD 


.WORD DO COL. 


3146 


15A5 


18 


09 




.WORD ELK 


3147 


15A7 


79 


07 




•WORD AT 


3148 


15A9 


3A 


06 




.WORD TOR 


3149 


15AB 


20 


09 




. WORD IN 


3150 


15AD 


79 


07 




. WORD AT 


3151 


15AF 


3A 


06 




• WORD TOR 


3152 


15B1 


5D 


08 




. WORD ZERO 


3153 


15B3 


20 


09 




.WORD IN 


3154 


15B5 


9D 


07 




.WORD STORE 


3155 


15B7 


B8 


08 




.WORD BSCR 


3156 


15B9 


44 


13 




. WORD STAR 


3157 


15BB 


18 


09 




.WORD BLK 


3158 


15BD 


9D 


07 




.WORD STORE 


3159 


15BF 


20 


11 




.WORD INTER 


3160 


15C1 


4C 


06 




.WORD RFROM 


3161 


15C3 


20 


09 




.WORD IN 


3162 


15C5 


9D 


07 




-WORD STORE 


3163 


15C7 


4C 


06 




.WORD RFROM 


3164 


15C9 


18 


09 




.WORD BLK 


3165 


15CB 


9D 


07 




. WORD STORE 


3166 


15CD 


OC 


06 




.WORD SEMIS 


3167 


15CF 










3168 


15CF 










3169 


15CF 






y 




3170 


15CF 






f 




3171 


15CF 


C3 




L2924 


. BYTE SC3,'--',$BE 


3171 


15D0 


2D 


2D 






3171 


15D2 


BE 








3172 


15D3 


9C 


15 




. WORD L2896 ; 


3173 


15D5 


D6 


07 




.WORD DOCOL 


3174 


15D7 


86 


OB 




. WORD QLOAD 


3175 


15D9 


5D 


08 




-WORD ZERO 


3176 


15DB 


20 


09 




.WORD IN 


3177 


15DD 


9D 


07 




•WORD STORE 


3178 


15DF 


B8 


08 




•WORD BSCR 


3179 


15E1 


18 


09 




.WORD BLK 


3180 


15E3 


79 


07 




.WORD AT 


3181 


15E5 


08 


07 




.WORD OVER 


3182 


15E7 


73 


13 




.WORD MOD 


3183 


15E9 


FA 


09 




.WORD SUB 


3184 


15EB 


18 


09 




.WORD BLK 


3185 


15ED 


49 


07 




. WORD PSTOR 


3186 


15EF 


OC 


06 




.WORD SEMIS 


3187 


15F1 










3188 


15F1 








XEMIT writes one ascii 


3189 


15F1 










3190 


15F1 


98 




XEMIT 


TYA 



LOAD 

SCREEN 62 LINE 2 



LINK TO MESSAGE 



SCREEN 62 LINE 6 



LINK TO LOAD 
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LINE 


if LOC 




CODE 


LINE 






3191 


15F2 


38 






SEC 




3192 


15F3 


AO 


1A 




LDY #$1A 




3193 


15F5 


71 


B3 




ADC (UF),Y 




3194 


15F7 


91 


B3 




STA (UP),Y 




3195 


15F9 


C8 






INY 


; bump user variable OUT 


3196 


15FA 


A9 


00 




LDA ifO 




3197 


15FC 


71 


B3 




ADC (UP),Y 




3198 


15FE 


91 


B3 




STA <UP),Y 




3199 


1600 


B5 


00 




LDA 0,X 


; fetch character to output 


3200 


1602 


86 


B5 




STX XSAVE 




3201 


1604 


20 


CI D2 




JSR OUTCH 


; and display it 


3202 


1607 


A6 


B5 




LDX XSAVE 




3203 


1609 


4C 


EE 03 




JMP POP 




3204 


160C 












3205 


160C 






» 


XKEY reads one 


terminal keystroke to stack 


3206 


160C 






• 

9 






3207 


160C 


86 


B5 


XKEY 


STX XSAVE 




3208 


160E 


20 


DC Dl 




JSR INCH 


; might otherwise clobber it while 


3209 


1611 


A6 


B5 




LDX XSAVE 


; inputlng a character to accumulator. 


3210 


1613 


4C 


DC 05 




JMP PUSHOA 




3211 


1616 






» 






3212 


1616 






y 


XQTER leaves a 


boolean representing terminal break 


3213 


1616 






'* 






3214 


1616 


AD 


00 CO 


XQTER 


LDA $C000 


; System dependent port test 


3215 


1619 


CD 


01 CO 




CMP $C001 




3216 


161C 


29 


01 




AND if I 




3217 


161E 


4C 


DC 05 




JMP PUSHOA 




3218 


1621 






; 






3219 


1621 






; 


XCR displays 


a CR and LF to terminal 


3220 


1621 






; 






3221 


1621 


86 


B5 


XCR 


STX XSAVE 




3222 


1623 


20 


Fl DO 




JSR TCR ; 


Use monitor call 


3223 


1626 


A6 


B5 




LDX XSAVE 




3224 


1628 


4C 


44 02 




JMP NEXT 




3225 


I62B 






; 






3226 


162B 






i 




-DISC 


3227 


162B 






; 




Machine level sector read/write 


3228 


162B 


85 




L3030 


. BYTE $85,'-DIS',$C3 


3228 


162C 


2D 


44 








3228 


1630 


C3 










3229 


1631 


GF 


15 




.WORD L2924 


; Link to — > 


3230 


1633 


35 


16 


DDISC 


.WORD *+2 




3231 


1635 


B5 


00 




LDA 0,X 




3232 


1637 


8D 


OC C6 




STA $C60C 




3233 


163A 


8D 


OD C6 




STA $C60D 


; Store sector number 


3234 


163D 


B5 


02 




LDA 2,X 




3235 


163F 


8D 


OA C6 




STA $C60A 




3236 


1642 


8D 


OB C6 




STA $C60B 


; Store track number 


3237 


1645 


B5 


04 




LDA 4 t X 




3238 


1647 


8D 


CD C4 




STA $C4CD 




3239 


164A 


8D 


CE C4 




STA $C4CE 


; Store drive number 


3240 


164D 


86 


B5 




STX XSAVE 




3241 


164F 


AD 


DA C4 




LDA $C4DA 


; Sense read or write 


3242 


1652 


DO 


06 




BNE L3032 




3243 


1654 


20 


FE El 




JSR SE1FE 
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LINE 


# LOC 




CODE 


LINE 




3244 


1657 


4C 


ST) 






JMP L3040 


3245 


165A 


20 


62 


E2 


L3032 


JSR SE262 


3246 


165D 


20 


EF 


E3 


L3040 


JSR $E3EF ; Head up motor off 


3247 


1660 


A6 


RS 

DJ 






LDX XSAVE 


3248 


1662 


AD 


F1 






LDA $C4E1 ; Report error code 


3249 


1665 


95 








STA 4,X 


3250 


1667 


4C 








JMP POPTWO 


3251 


166A 








• 




3252 


166A 








! 


-BCD 


3253 


166A 








■ 

> 


Convert binary value to BCD 


3254 


166A 








• 
t 




3255 


166A 


84 






L3050 


.BYTE $84,'-BC',$C4 


3255 


166B 


2D 


HZ 








3255 


166E 


C4 










3256 


166F 


2B 


1 h 






.WORD L3030 ; link to -DISC 


3257 


1671 


D6 


u / 




DBCD 


. WORD DOCOL 


3258 


1673 


5D 


U 






.WORD ZERO.CLIT 


3258 


1675 


67 


02 








3259 


1677 


OA 








.BYTE 10 


3260 


1678 


5B 


05 






. WORD USLAS.CLIT 


3260 


167A 


67 


02 








3261 


16 7C 


10 








.BYTE 16 


3262 


16 70 


44 


13 






.WORD STAR, OR, SEMIS 


3262 


167F 


AD 


05 








3262 


1681 


OC 


06 








3263 


1683 








; 




3264 


1683 








; 


R/W 


3265 


1683 








; 


Read or write one sector 


3266 


1683 


83 






L3060 


. BYTE S83,'R/',SD7 


3266 


1684 


52 


2F 








3266 


1686 


D7 










3267 


1687 


6A 


16 






. WORD L3050 ; link to -BCD 


3268 


1689 


D6 


07 




RSLW 


. WORD DOCOL 


3269 


168B 


73 


06 






.WORD ZEQU.LIT.SCADA.CSTOR 


3269 


168D 


2A 


02 








3269 


168F 


DA C4 








3269 


1691 


B5 


07 








3270 


1693 


22 


07 






. WORD SWAP, ZERO, STORE 


3270 


1695 


5D 


08 








3270 


1697 


9D 


07 








3271 


1699 


5D 


08 






.WORD ZERO, OVER, GREAT, OVER 


3271 


169B 


08 


07 








3271 


169D 


3C 


OA 








3271 


169F 


08 


07 








3272 


16At 


2A 


02 






-WORD LIT , SECTL- 1 , GREAT , OR, CLIT 


3272 


16A3 


3F 


06 








3272 


16A5 


3C 


OA 








3272 


16A7 


AD 


05 








3272 


16A9 


67 


02 








3273 


16AB 


06 








.BYTE 6 


3274 


16AC 


11 


0B 






. WORD QERR 


3275 


16AE 


5D 


08 






.WORD ZERO , L IT , SECTR , USLAS , ONEP 


3275 


16B0 


2A 


02 








3275 


16B2 


20 


03 








3275 


16B4 


5B 


05 
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LINE 


it LOG 




CODE 


LINE 






3275 


16B6 


Al 


09 








3276 


16B8 


22 


07 




. WORD 


SWAP,ZERO,CLIT 


3276 


16BA 


3D 


08 








3276 


16BC 


67 


02 








3277 


16BE 


12 






.BYTE 


$12 


3278 


16BF 


5B 


05 




. WORD 


USLAS ,DBCD , SWAP , ONEP 


3278 


16C1 


71 


16 








3278 


16C3 


22 


07 








3278 


16C5 


Al 


09 








3279 


16C7 


71 


16 




. WORD 


DBCD,DDISC,CLIT 


3279 


16C9 


33 


16 








3279 


16CB 


67 


02 








3280 


16CD 


08 






. BYTE 


8 


3281 


16CE 


11 


OB 




.WORD 


QERR 


3282 


16D0 


OC 


06 




. WORT 1 


SEMIS 


3283 


16D2 






> 






3284 


16D2 






* 
* 






3285 


16D2 






> 






3286 


16D2 


OC 


06 




.WORD 


SEMIS 


3287 


16D4 






• 






3288 


16D4 












3289 


16D4 










SCREEN 72 LINE 2 


3290 


16D4 






* 
> 






3291 


16D4 


CI 




L3202 


. BYTE 


$C1,$A7 


3291 


16D5 


A7 










3292 


16D6 


83 


16 




.WORD 


L3060 ; LINK TO R/W 


3293 


16D8 


D6 


07 


TICK 


. WORD 


DOCOL 


3294 


16DA 


8D 


OF 




. WORD 


DFIND 


3295 


16DC 


73 


06 




. WORD 


ZEQU 


3296 


16DE 


5D 


08 




. WORD 


ZERO 


3297 


16E0 


11 


OB 




.WORD 


QERR 


3298 


16E2 


19 


07 




• WORD 


DROP 


3299 


16EA 


CI 


10 




.WORD 


LITER 


3300 


16E6 


OC 


06 




. WORD 


SEMIS 


3301 


16E8 






; 






3302 


16E8 






i 






3303 


16E8 






; 




FORGET 


3304 


16E8 






S 




Altered from Model 


3305 


16E8 






; 




SCREEN 72 LINE 6 


3306 


16E8 






; 






3307 


16E8 


86 




L3217 


.BYTE 


$86, 'FORGE', $D4 


3307 


16E9 


46 


4F 








3307 


16EE 


D4 










3308 


16EF 


D4 


16 




• WORD 


L3202 LINK TO ' TICK 


3309 


16F1 


D6 


07 


FORG 


.WORD 


DOCOL 


3310 


16F3 


D8 


16 




.WORD 


TICK.NFA.DUP 


3310 


16F5 


D5 


OA 








3310 


16F7 


3A 


07 








3311 


16F9 


F9 


08 




. WORD 


FENCE , AT , ULES S , CLIT 


3311 


16FB 


79 


07 








3311 


16FD 


13 


OA 








3311 


16FF 


67 


02 








3312 


1701 


15 






.BYTE 


$15 


3313 


1702 


11 


OB 




.WORD 


QERR , TO R , VOCL , AT 


3313 


1704 


3A 


06 
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If LljL. 






LINE 






3313 


1 706 


OF 


09 








3 J 1 j 


1 /Uo 


7 (1 


n 7 

07 








3314 


1 / UA 


3D 


ub 


7 111 ^ 

L3220 


. WORD 


RjOVLR, ULESS 


3314 


170C 


Go 


07 








3314 


1 "7 r 1 

170E 


13 


OA 








J J 15 


1 / 1U 


5b 


03 




. WORD 


ZBRAN,L3225-* 


1 1 1 £ 
1 5 


1/12 


lz 


UU 








1 £ 

J31b 


1 7 w 
1/14 


Bo 


i i 
1 1 




■ WUKD 


rURl H, DLr lN,Ai,DUJf 


J 31o 


1 /lb 


Lh 


1 1 








331b 


1 / is 


7(1 

79 


A 7 

07 








3 j 1 


1 7 1 * 
1 / 1A 


3A 


U7 








331 / 


7 7 1 H 
1 / 1L 


Ur 


09 




• WORD 


VULL, SruRh 


33 1 / 


1 / it 


9D 


A 7 
U / 








1 1 1 ft 


I / ZU 


1 7 
J / 


oi 
us 




• WUKD 


DD im ^ , E , I^ |, C , ' , C , OA -Li T IOTA-* 


11 1 ft 


1 / 


La 


r t 








J J17 


1 / Z4 


1 A 

3A 


n 7 
U / 


L JZ25 


• WURD 


T\TTT3 /^T T T 


^110, 


1 / Z D 


ft7 


09 










1 / Zo 


OA 

U*4 






• D t 1 


H 


^9 1 


1 7 99 
x / z^r 


FA 


oq 








3 1? 9 

J J *L L. 


1 79R 


FA 

■ -. * 


OA 


T 1 99R 

■L. D L- O 




PIT A T IT A AT 




1 7 9T) 


DO 


OA 








119 5 


1 7 9TT 
i / zr 


7Q 
/ 7 


U / 








JJiJ 


i / Ji 


1A 


ri7 
u / 




L7r*Tjr\ 
• WUK1J 




119 1 


1 TOT 

i / y j 


jU 


rift 








1191 

3323 


1/35 


13 


UA 








119 A 


1717 
1 / 1 


3D 


n i 
U J 




• WUtiD 




J.Jz4 


i / jy 


r 2 


T7T? 








OTIC 

3325 


1 7 3B 


08 


07 




. WORD 


OVER f TWO , SUB » STORE 


3325 


17 3D 


60 


08 








3325 


• —J fK— , 

173F 


FA 


09 










i / 41 


or* 

yu 


n 7 
U / 








1 1 9 £ 


L / H J 


70. 


ri7 
U / 




• WURD 


Al , UDUi", itCju 


1 1 9 £ 


1 7 /< ^ 
1 / 4J 


DL) 


UA 








111/; 


1 7£7 
1 / 4 / 


71 
/ J 


UD 








3397 


] 740, 


S6 






• WUrUJ 






1 74B 




e r 








3328 


1 74D 


4C 


06 




.WORD 


RFROM DP STORF 


3328 


174F 


01 


09 








3398 


1 7S 1 




u / 








3 329 

-J *J i- J 


1 7 S 3 




UD 








3330 


1 7SS 






* 
> 






33 31 


1 7SS 






> 






1119 


A / J J 






t 




erne CTJ 71 T T M T? 


9 O 9 
JJJJ 


171*! 






I 






1 MJ 


1 7CC 
i/JJ 


a a 

04 




T 7 7 

L325U 


BVTC 

< BY it 


4>04, BAL ,i?LB 


7 O 1 ^ 

3334 


1 7C£ 

1756 


42 


41 43 








3334 


1759 


CB 










3335 


175A 


E8 


16 




.WORD 


L3217 ; LINK X0 FORGET 


3336 


175C 


D6 


07 


BACK 


. WORD 


D0C0L 


3337 


175E 


BD 


09 




.WORD 


HERE 


3338 


1760 


FA 


09 




. WORD 


SUB 


3339 


1762 


D9 


09 




.WORD 


COMMA 


3340 


1764 


OC 


06 




.WORD 


SEMIS 


3341 


1766 






j 






3342 


1766 






■ 

t 




BEGIN 
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LIKE # LOC 



CODE 



LINE 



3343 
3344 
3345 
3345 
3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3357 
3357 
3358 
3359 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3374 
3374 
3375 
3376 
3377 
3378 
3379 
3380 
3381 
3382 
3383 
3384 
3384 
3384 
3385 
3386 
3387 
3388 
3389 



1766 
1766 
1766 
1767 
176B 
176C 
176E 
1770 
1772 
1774 
17 76 
1778 
1778 
1778 
1778 
1778 
1778 
1779 
177D 
177E 
1780 
1782 
1784 
1786 
1788 
178A 
178C 
178E 
1790 
1792 
1794 
1794 
1794 
1794 
1794 
1794 
1795 
1798 
1799 
179B 
179D 
179F 
17A1 
17A1 
17A1 
17AI 
17A1 
17A1 
17A2 
17A3 
17A4 
17A6 
17A8 
17AA 
17AC 



SCREEN 73 LINE 3 



C5 

42 45 
CE 

55 17 
D6 07 
2B OB 
BD 09 
65 08 
OC 06 



L3261 .BYTE $C5, 'BEGI' , $CE 



C5 

45 4E 
C6 

66 17 
D6 07 
2B OB 
6D 08 
58 OB 
BD 09 
08 07 
FA 09 
22 07 
9D 07 
OC 06 



C4 

54 48 45 
CE 

78 17 
D6 07 
80 17 
OC 06 



C2 
44 
CF 

94 17 
D6 07 
9F OB 
DE 03 
BD 09 



END IF 



.WORD L3250 

.WORD DOCOL 

.WORD QCOMP 

. WORD HERE 

.WORD ONE 

. WORD SEMIS 



; LINK TO BACK 



END IF 
SCREEN 



73 LINE 5 



L3273 . BYTE $C5, 'END I ' , $C6 



. WORD L3261 
. WORD DOCOL 
. WORD QCOMP 
.WORD TWO 
.WORD QPAIR 
.WORD HERE 
. WORD OVER 
.WORD SUB 
. WORD SWAP 
. WORD STORE 
.WORD SEMIS 



; LINK TO BEGIN 



L3290 .BYTE $C4, 'THE' ,$CE 



■ WORD L3273 

■ WORD DOCOL 
,WORD END IF 
i WORD SEMIS 



THEN 

SCREEN 73 LINE 7 



; LINK TO END IF 



L33O0 .BYTE $C2, *D',$CF 



.WORD L3290 
■ WORD DOCOL 
.WORD COMP 
.WORD PDO 
. WORD HERE 



DO 

SCREEN 73 LINE 9 



LINK TO THEN 
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LINE 


§ LOG 




CODE 


LINE 








3390 


17AE 


75 


08 




.WORD 


THREE 




3391 


17B0 


OC 


06 




.WORD 


SEMIS 




3392 


17B2 














3393 


17B2 














3394 


17B2 












LOOP 


3395 


17B2 






. 






SCREEN 73 LINE 


3396 


17B2 






! 








3397 


17B2 


C4 




L3313 


• BYTE 


SC4. *L00" ,$D0 




3397 


17B3 


4C 


4F 4F 










3397 


17B6 


DO 














1 7ft 7 


A 1 


1 7 








T TNlf Tfl Tin 




1 7RQ 










UUUULi 






i 7ft ft 


7 s 


ns 

Uo 






R V V 




J4U1 


1 7Hn 




DR 

UD 




• WUtw 






Tin? 


1 7ft p 


QV 
5f 


HB 




• WUtuJ 


UUFlr 




J"*UJ 


1 7T 1 


7 7 


UJ 




. WUKJJ 


r LUUr 




"i.AC\A 


1 m 1 


JO 


t 7 




■ WUKU 


JJALft. 










UO 




• WUKiJ 






3406 


J. / \j f 






i 








3407 


17C7 














3408 


17C7 












+LOOP 


3409 


17C7 












SCREEN 73 LINE 


3410 


17C7 






• 








3411 


17C7 


C5 




L3327 


. BYTE 


$C5, '+LOO' ,$D0 




3411 


17C8 


2B 


4C 










3411 


17CC 


DO 












3412 


17CD 


B2 


17 




. WORD 


L3313 ; 


LINK TO LOOP 


3413 


17CF 


D6 


07 




. WORD 


D0COL 




3414 


17D1 


75 


08 




. WORD 


THREE 




3415 


17D3 


58 


0B 




.WORD 


QPAIR 




3416 


17D5 


9F 


0B 




.WORD 


COMP 




3417 


17D7 


A7 


03 




.WORD 


PPLOO 




3418 


17D9 


5C 


17 




. WORD 


BACK 




3419 


17DB 


0C 


06 




. WORD 


SEMIS 

ij Call J. L> 




3420 


17DD 














3421 


17DD 














3422 


17DD 






! 






UNTIL 


3423 


17DD 












SCREEN 73 LINE 


3424 


17DD 






| 








3425 


17DD 


C5 




L3341 


. BYTE 


SC5. *UNTI' .SCC 




3425 


17DE 


55 


4E 










3425 


17E2 


CC 












3426 


1 7E3 


C7 


1 7 




, WORD 


L3127 


LINK TO +L00P 


3427 


17E5 


D6 


07 


UNTIL 


.WORD 


DOCOL 




3428 


17E7 


65 


08 




.WORD 


ONE 




3429 


17E9 


58 


0B 




.WORD 


QPAIR 




3430 


17EB 


9F 


0B 




.WORD 


COMP 




3431 


17ED 


56 


03 




.WORD 


ZBRAN 




3432 


17EF 


5C 


17 




. WORD 


BACK 




3433 


17F1 


OC 


06 




.WORD 


SEMIS 




3434 


17F3 














3435 


17F3 






• 
* 








3436 


17F3 






> 






END 


3437 


17F3 






> 






SCREEN 74 LINE 


3438 


17F3 
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LINE 


# LOC 




CODE 


LINE 






3439 


17F3 


C3 




L3355 


. BYTE 


$C3,'EN',$C4 


3439 


17F4 


45 


4E 








3439 


17F6 


C4 










3440 


17F7 


DD 


17 




. WORD 


L3341 ; 


3441 


17F9 


D6 


07 




.WORD 


DOCOL 


3442 


17FB 


E5 


17 




. WORD 


UNTIL 


3443 


17FD 


OC 


06 




.WORD 


SEMIS 


3444 


17FF 






; 






3445 


17FF 






; 






3446 


17FF 






; 






3447 


17FF 






; 






3448 


17FF 






; 






3449 


17FF 


C5 




L3365 


. BYTE 


$C5,'AGAI',$CE 


3449 


1800 


41 


47 








3449 


1804 


CE 










3450 


1805 


F3 


17 




. WORD 


L3355 


3451 


1807 


Q6 


07 


AGAIN 


. WORD 


DOCOL 


3452 


1809 


65 


08 




.WORD 


ONE 


3453 


180B 


58 


03 




.WORD 


QFAIR 


3454 


180D 


9F 


0B 




. WORD 


COMP 


3455 


180F 


37 


03 




.WORD 


BRAN 


3456 


1811 


5C 


17 




. WORD 


BACK 


3457 


1813 


OC 


06 




. WORD 


SEMIS 


3458 


1815 






; 






3459 


1815 






; 






3460 


1815 






; 






3461 


1815 






; 






3462 


1815 






; 






3463 


1815 


C6 




L3379 


.BYTE 


$C6,'REPEA',$D4 


3463 


1816 


52 


45 








3463 


1813 


D4 










3464 


181C 


FF 


17 




.WORD 


L3365 ; 


3465 


181E 


D6 


07 




.WORD 


DOCOL 


3466 


1820 


3A 


06 




.WORD 


TOR 


3467 


1822 


3A 


06 




. WORD 


TOR 


3468 


1824 


07 


18 




. WORD 


AGAIN 


3469 


1826 


4C 


06 




. WORD 


RFROM 


3470 


1828 


4C 


06 




. WORD 


RFROM 


3471 


182A 


6D 


08 




. WORD 


TWO 


3472 


182C 


FA 


09 




.WORD 


SUB 


3473 


182E 


80 


17 




. WORD 


ENDIF 


3474 


1830 


OC 


06 




.WORD 


SEMIS 


3475 


1832 






> 






3476 


1832 






; 






3477 


1832 






; 






3478 


1832 






; 






34 79 


1832 












3480 


1832 


C2 




L3396 


. BYTE 


$C2,'I',$C6 


3480 


1833 


49 










3480 


1834 


C6 










3481 


1835 


15 


18 




.WORD 


L3379 ; 


3482 


1837 


D6 


07 


IF 


.WORD 


DOCOL 


3483 


1839 


9F 


OB 




.WORD 


COMP 


3484 


183B 


56 


03 




.WORD 


ZBRAN 


3485 


183D 


BD 


09 




.WORD 


HERE 



LINK TO UNTIL 



AGAIN 

SCREEN 74 LINE 3 



LINK TO END 



REPEAT 

SCREEN 74 LINE 5 



; LINK TO AGAIN 



IF 

SCREEN 74 LINE 8 



; LINK TO REPEAT 
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LINE 


# LOG 




CODE 


LINE 






3486 


183F 


5D 


08 




• WORD 


ZERO 


3487 


1841 


D9 


09 




.WORD 


COMMA 


3488 


1843 


6D 


08 




.WORD 


TWO 


3489 


1845 


OC 


06 




• WORD 


SEMIS 


3490 


1847 












3491 


1847 












3492 


1847 










ELSE 


3493 


1847 






; 




SCREEN 74 LINE 


3494 


1847 






; 






3495 


1847 


C4 




L3411 


.BYTE 


$C4»'ELS',$C5 


3495 


1848 


45 


4C 53 








3495 


18 4B 


C5 










3496 


184C 


32 


18 




.WORD 


L3396 ; LINK TO IF 


3497 


184E 


D6 


07 




. WORD 


DOCOL 


3498 


1850 


6D 


08 




.WORD 


TWO 


3499 


1852 


58 


OB 




. WORD 


QPAIR 


3500 


1854 


9F 


OB 




.WORD 


COMP 


3501 


1856 


37 


03 




.WORD 


BRAN 


3502 


1858 


BD 


09 




.WORD 


HERE 


3503 


185A 


5D 


08 




.WORD 


ZERO 


3504 


185C 


D9 


09 




.WORD 


COMMA 


3505 


185E 


22 


07 




.WORD 


SWAP 


3506 


I860 


6D 


08 




.WORD 


TWO 


3507 


1862 


80 


17 




.WORD 


END IF 


3508 


1864 


6D 


08 




.WORD 


TWO 


3509 


1866 


OC 


06 




.WORD 


SEMIS 


3510 


1868 






• 






3511 


1868 






; 






3512 


1868 






; 




WHILE 


3513 


1868 










SCREEN 74 LINE 


3514 


1868 












3515 


1868 


C5 




L3431 


. BYTE 


SC5,'WHIL',$C5 


3515 


1869 


57 


48 








3515 


I860 


C5 










3516 


186E 


47 


18 




. WORD 


L3411 ; LINK TO ELSE 


3517 


1870 


D6 


07 




.WORD 


DOCOL 


3518 


1872 


37 


18 




.WORD 


IF 


3519 


1874 


AE 


09 




. WORD 


TWOP 


3520 


1876 


OC 


06 




.WORD 


SEMIS 


3521 


1878 






; 






3522 


1878 






; 






3523 


1878 






j 




SPACES 


3524 


1878 






; 




SCREEN 75 LINE 


3525 


1878 






; 






3526 


1878 


86 




L3442 


. BYTE 


$86,' SPACE', $D3 


3526 


1879 


53 


50 








3526 


187E 


D3 










3527 


187F 


68 


18 




.WORD 


L3431 ; LINK TO WHILE 


3528 


1881 


D6 


07 


SPACS 


. WORD 


DOCOL 


3529 


1883 


5D 


08 




. WORD 


ZERO 


3530 


1885 


EA 


12 




. WORD 


MAX 


3531 


1887 


6D 


OA 




.WORD 


DDUP 


3532 


1889 


56 


03 




.WORD 


ZBRAN 


3533 


188B 


OC 


00 


L3449 


.WORD 


$0C L3455-L3449 


3534 


188D 


5D 


08 




.WORD 


ZERO 



f ig- FORTH for 6502, Rel 1.1 



PAGE 0075 



LINE 


# LOC 




CODE 


LINE 








3535 


188F 


DE 


03 




.WORD 


PDO 




3536 


1891 


5E 


OA 


L3452 


.WORD 


SPACE 




3537 


1893 


77 


03 




.WORD 


PLOOP 




3538 


1895 


FC 


FF 


L3454 


. WORD 


$FFFC 


L3452-L3454 


3539 


1897 


OC 


06 


L3455 


.WORD 


SEMIS 




3540 


1899 






; 








3541 


1899 






• 






<# 


3542 


1899 






; 






SCREEN 75 LINE 


3543 


1899 






; 








3544 


1899 


82 




L3460 


. BYTE 


$82,*<',$A3 




3544 


189A 


3C 












3544 


1893 


A3 












3545 


189C 


78 


18 




. WORD 


L3442 


; LINK TO SPACES 


3546 


189E 


D6 


07 


BDIGS 


. WORD 


DOCOL 




3547 


18A0 


5E 


OE 




.WORD 


PAD 




3548 


18A2 


99 


09 




. WORD 


HLD 




3549 


18A4 


9D 


07 




. WORD 


STORE 




3550 


18A6 


OC 


06 




.WORD 


SEMIS 




3551 


18A8 






; 








3552 


18A8 






; 








3553 


18AS 






; 






SCREEN 75 LINE 


3554 


18A8 






: 








3555 


18A8 


82 




L3471 


-BYTE 


$82,*#',$BE 




3555 


18A9 


23 












3555 


18AA 


BE 












3556 


18AB 


99 


18 




. WORD 


L3460 


; LINK TO <// 


3557 


18 AD 


D6 


07 


EDIGS 


. WORD 


DOCOL 




3558 


18AF 


19 


07 




.WORD 


DROP 




3559 


18B1 


19 


07 




.WORD 


DROP 




3560 


1SB3 


99 


09 




. WORD 


HLD 




3561 


18B5 


79 


07 




.WORD 


AT 




3562 


18S7 


5E 


OE 




.WORD 


PAD 




3563 


18B9 


08 


07 




.WORD 


OVER 




3564 


18BB 


FA 


09 




.WORD 


SUB 




3565 


18BD 


OC 


06 




. WORD 


SEMIS 




3566 


18BF 






; 








3567 


18BF 






; 






SIGN 


3568 


18BF 






; 






SCREEN 75 LINE 


3569 


18BF 






; 








3570 


18BF 


84 




L3486 


. BYTE 


$84,'SIG',$CE 




3570 


18C0 


53 


49 47 










3570 


18C3 


CE 












3571 


18C4 


A8 


18 




. WORD 


L3471 


; LINK TO U> 


3572 


18C6 


D6 


07 


SIGN 


. WORD 


DOCOL 




3573 


18C8 


4A 


OA 




.WORD 


ROT 




3574 


18CA 


88 


06 




.WORD 


ZLESS 




3575 


18CC 


56 


03 




.WORD 


ZBRAN 




3576 


18CE 


07 


00 


L3492 


. WORD 


$7 


L3496-L3492 


3577 


18D0 


67 


02 




.WORD 


CLIT 




3578 


18D2 


2D 






. BYTE 


$2D 




3579 


18D3 


46 


OE 




.WORD 


HOLD 




3580 


18D5 


OC 


06 


L3496 


.WORD 


SEMIS 




3581 


18D7 














3582 


18D7 












* 


3583 


18D7 












SCREEN 75 LINE 



fig-FORTH for 6502, Rel 1.1 
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LINE 


# LOC 




CODE 


LIME 






3584 


18D7 






t 






J J O J 


I ATI 7 


ft 7 






• DI 1L 


9 1 j j 


J JO J 


1 snft 


A 1 










JjBo 


i oDy 


U I? 






• WUKD 


LJ400 


wo/ 


i Ann 


DO 


A7 


D J-L> 




nAAAT 
UUVUL 


JioB 


1 O JjJ 


oi) 


uy 




• WUKU 


n act; 


icon 

3589 


18DF 


79 


07 




* WORD 


AT 


3590 


lot 1 


A6 


13 




• WORD 


MS MOD 


^1 C A 1 

3591 


18E3 


l A 

4A 


OA 




• WUKU 


ROT 


3592 


18E5 


67 


02 




. WORD 


CLIT 


3593 


18E7 


09 






-BYTE 


9 


3594 


18E8 


08 


07 




.WORD 


OVER 


3595 


18EA 


IF 


OA 




.WORD 


LESS 


3596 


18EC 


56 


03 




• WORD 


ZBRAN 


3597 


18EE 


07 


00 


L3513 


.WORD 


7 


3598 


18F0 


67 


02 




.WORD 


CLIT 


3599 


18F2 


07 






. BYTE 


7 


3600 


18F3 


99 


06 




.WORD 


PLUS 


3601 


18F5 


67 


02 


L3517 


. WORD 


CLIT 


3602 


18F7 


30 






• BYTE 


$30 


Jbui 


1 or o 


fin 

yy 


06 




• WORD 


TIT T T C 

PLUS 


3604 


loFA 


46 


0E 




. WORD 


HOLD 


3605 


18FC 


oc 


06 




. WORD 


SEMIS 


3 DUD 


lor h 






j 






Jou / 


lor L 






| 






JDUO 


i or r» 












juU" 


i or £. 






» 






1A 1 fl 


1 or Ri 






LJ JiD 




c 'si' 


JUlU 


1 flr it 
i or r 
















D J 










% fil 1 


1 on i 


n 7 
d / 


1 




uAi>ri 
. WUKD 


LJjUi 


JDLZ 


i 7w J 


DO 


U / 


nirc 
J 1 Lp 3 


. WUKD 


DUUUL 


jbli 






18 


T ft C ft ft 

L3529 


.WORD 


DIG 


3614 


1907 


08 


07 




.WORD 


OVER 


3615 


1909 


,1-1, 

08 


07 




.WORD 


OVER 


3616 


19 0B 


AD 


05 




.WORD 


OR 


3617 


190D 


73 


06 




.WORD 


ZEQU 


3618 


190F 


56 


03 




.WORD 


r» ^1 T\ LIT 

ZBRAN 


3619 


1 A 1 1 

1911 


F4 


FF 


T ft C ft C 

L3535 


. WORD 


$FFF4 


3620 


1913 


OC 


06 




.WORD 


SEMIS 


I £ ft i 

3621 


i fi i c 

1915 






! 






3622 


1915 






» 






3623 


1915 






■ 






3624 


1 A 1 E 












3625 


1 A 1 C 

1915 


83 




t ft c y 1 

L3541 


• BYTE 


$83, D. 


3625 


T A 1 £ 

1916 


44 


2E 








3625 


1918 


D2 












1 y 1 y 


r L 


1 G 




. WORD 


L 35z6 


3627 


191B 


D6 


07 


DDOTR 


. WORD 


DOC0L 


3628 


191D 


3A 


06 




.WORD 


TOR 


3629 


191F 


22 


07 




.WORD 


SWAP 


3630 


1921 


08 


07 




.WORD 


OVER 


3631 


1923 


C4 


12 




.WORD 


DABS 


3632 


1925 


9E 


18 




.WORD 


BDIGS 


3633 


1927 


03 


19 




.WORD 


DIGS 



LINK TO SIGN 



L3517-L3513 



#S 

SCREEN 75 LINE 12 



; LINK TO # 



L3529-L3535 



D.R 

SCREEN 76 LINE 1 



LINK TO #S 



f ig- FORTH for 6502, Rel 1.1 



PAGE 0077 



LINE 


# LOG 




CODE 


LINE 








3634 


1929 


C6 


18 




.WORD 


SIGN 




3635 


192B 


AD 


18 




. WORD 


EDIGS 




3636 


192D 


4C 


06 




.WORD 


RFROM 




3637 


192F 


08 


07 




.WORD 


over 




3638 


1931 


FA 


09 




• WUKi/ 






3639 


1933 


8 1 


18 




• WUKU 






3640 


1935 


95 


OC 




. WORD 


lirt 




364 1 


1937 


OC 


06 




f TA1JT\ 

. WUKU 






3642 


1939 






» 








3643 


1939 












Dm 


3644 


1939 












SCREEN 7c LINE 


3645 


1939 














3646 


1939 


82 




L3562 


. BYTE 


$82, D ,$AE 




3646 


19 3A 


44 












3646 


193B 


AE 












3647 


193C 


15 


19 




. WORD 


L3541 


; LINK TO D.R 


3648 


193E 


D6 


07 


DD0T 


. WORD 


DO COL 




3649 


1940 


5D 


08 




. WORD 


ZERO 




3650 


1942 


IB 


19 




• WORD 


DDOTR 




3651 


1944 


5E 


OA 




. WORD 


SPACE 




3652 


1946 


0C 


06 




. WORD 


SEMIS 




3653 


1948 






i 








3654 


1948 






« 






. R 


3655 


1948 






S 






SCREEN 76 LINE 


3656 


1948 






« 








3657 


1948 


82 




L3573 


. BYTE 


$82, . ,$D2 




3657 


1949 


2E 












3657 


194A 


D2 












3658 


194B 


39 


19 




. WORD 


L3562 


LINK TO D. 


3659 


194D 


D6 


07 


DOTR 


.WORD 


DOCOL 




3660 


194F 


3A 


06 




.WORD 


TOR 




3661 


1951 


82 


12 




. WORD 


STOD 




3662 


1953 


4C 


06 




.WORD 


RFROM 




3663 


1955 


IB 


19 




. WORD 


DDOTR 




3664 


1957 


OC 


06 




.WORD 


SEMIS 




3665 


1959 






; 








3666 


1959 






■ 








3667 


1959 






» 






bLKhtN /O LINE. 


3668 


1959 






» 








3669 


1959 


81 




L3585 


. 3YTE 


$81 , $AE 




3669 


195A 


AE 












3670 


195B 


48 


19 




. WORD 


L3573 


; LINK TO . R 


3671 


195D 


D6 


07 


DOT 


. WORD 


DOCOL 




3672 


195F 


82 


12 




.WORD 


STOD 




3673 


1961 


3E 


19 




. WORD 


DDOT 




3674 


1963 


OC 


06 




.WORD 


SEMIS 




3675 


1965 














3676 


1965 












? 


3677 


1965 












SCREEN 76 LINE 


3678 


1965 














3679 


1965 


81 




L3595 


.BYTE 


$81,$BF 




3679 


1966 


BF 












3680 


1967 


59 


19 




.WORD 


L3585 


; LINK TO . 


3681 


1969 


D6 


07 


QUES 


.WORD 


DOCOL 




3682 


196B 


79 


07 




.WORD 


AT 





fig-FORTH for 6502, Rel 1.1 
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LINE 


# LOG 




CODE 


3683 


196D 


5D 


19 


3684 


196F 


OC 


06 


3685 


1971 






3686 


1971 






3687 


1971 






3688 


1971 






r*t f l"j f, 

3689 


1971 


84 




3689 


1972 


4C 


49 53 


3689 


1975 


D4 




3690 


1976 


65 


19 


3691 


1978 


D6 


07 


3692 


197A 


FD 


OB 


3693 


197C 


F4 


04 


3694 


197E 


3A 


07 


line 

3695 


1980 


32 


09 


3696 


1982 


9D 


07 


3697 


1984 


F6 


OC 


3698 


1986 


06 




3698 


1987 


53 


43 


3699 


198D 


5D 


19 


3700 


198F 


67 


02 


3701 


1991 


10 




3702 


1992 


5D 


08 


3703 


1994 


DE 


03 


3704 


1996 


F4 


04 


3705 


1998 


F7 


03 


3706 


199A 


75 


08 


3707 


199C 


4D 


19 


3708 


199E 


5E 


OA 


3709 


19A0 


F7 


03 


3710 


19A2 


.3 2 


09 


^711 




7 Q 


H7 

u/ 


Q 1 1 1 
j / 1 I 


1 CIA £ 

1 9A6 


Q O 
30 


1 5 


J / 1 J 


i yAo 


"7 "7 


U3 


171/, 


1 QA A 

1 3AA 


17 f~* 
fill 


r r 


171 R 


J OAT 


it 




j / 10 




Ui. 




7 1 7 








171 D 
J / 10 


1 QUA 






3 / iy 


i yiiu 






3720 


19B0 






J 11 1 


19B0 


85 




3/21 


1931 


49 


4E 


3721 


19B5 


D8 




3 7 22 


1 n r> t 

19B6 


71 


19 


3723 


19B8 


D6 


07 


3724 


1 ATI 1 

19BA 


F4 


04 


3725 


19BC 


Al 


09 


3726 


19BE 


22 


07 


3727 


19C0 


DE 


03 


3728 


19C2 


F4 


04 


3729 


19C4 


F7 


03 


3730 


19C6 


75 


08 


3731 


19C8 


4D 


19 


3732 


19CA 


5E 


OA 



LINE 

. WORD DOT 
.WORD SEMIS 

; LIST 

; SCREEN 77 LINE 2 

L3605 .BYTE $84, 'LIS* , $D4 



.WORD L3595 ; LINK TO 1 

LIST .WORD D0C0L 
.WORD DECIM 
.WORD CR 
.WORD DUF 
. WORD SCR 
.WORD STORE 
.WORD PDOTQ 
. BYTE 6,'SCR # ' 

.WORD DOT 

.WORD CLIT 

.BYTE 16 

. WORD ZERO 

.WORD PDO 
L3620 .WORD CR 

.WORD I 

. WORD THREE 

. WORD DOTR 

•WORD SPACE 

.WORD I 

.WORD SCR 

.WORD AT 

.WORD DLINE 

.WORD PLOOP 
L3630 .WORD SFFEC L3620-L3630 

.WORD CR 

.WORD SEMIS 

» 

; INDEX 

; SCREEN 77 LINE 7 

L3637 .BYTE $85, ' INDE* , $D8 



. WORD L3605 ; LINK TO LIST 

. WORD DOCOL 
• WORD CR 
. WORD ONEP 
.WORD SWA? 
.WORD PDO 
L3647 . WORD CR 
. WORD I 
.WORD THREE 
-WORD DOTR 
.WORD SPACE 



fig-FORTH for 6502, Rel 1.1 



PAGE 0079 



LINE 


# LOG 




CODE 


LINE 








3733 


19CC 


5D 


08 




. WORD 


ZERO 




3734 


19CE 


F7 


03 




• WORD 


I 




3735 


19D0 


58 


15 




.WORD 


DLINE 




3736 


19D2 


ED 


04 




.WORD 


QTERM 




3737 


19D4 


56 


03 




.WORD 


ZBRAN 




3738 


19D6 


04 


00 


L3657 


.WORD 


4 


L3659-L3657 


3739 


19D8 


IF 


06 




.WORD 


LEAVE 




3740 


19DA 


77 


03 


L3659 


.WORD 


FLOOP 




3741 


19DC 


E6 


FF 


L3660 


.WORD 


$FFE6 


L3647-L3660 


3742 


19DE 


67 


02 




.WORD 


CLIT 




3743 


19E0 


OC 






. BYTE 


$0C 


FORM FEED FOR PRINTER 


3744 


19E1 


D7 


04 




.WORD 


EMIT 




3745 


19E3 


OC 


06 




.WORD 


SEMIS 




3746 


19E5 






• 
> 








3747 


19E5 






; 






TRIAD 


3748 


19E5 






; 






SCREEN 7 7 LINE 


3749 


19E5 






; 








3750 


19E5 


85 




L3666 


• BYTE 


$85,'TRIA' ) $C4 


3750 


19E6 


54 


52 










3750 


19EA 


C4 












3751 


19EB 


BO 


19 




.WORD 


L3637 


; LINK TO INDEX 


3752 


19ED 


D6 


07 




. WORD 


DOCOL 




3753 


19EF 


75 


08 




. WORD 


THREE 




3754 


19F1 


63 


13 




.WORD 


SLASH 




3755 


19F3 


75 


08 




. WORD 


THREE 




3756 


19F5 


44 


13 




. WORD 


STAR 




3757 


19F7 


75 


08 




. WORD 


THREE 




3758 


19F9 


08 


07 




. WORD 


OVER 




3759 


19FB 


99 


06 




.WORD 


PLUS 




3760 


19FD 


22 


07 




.WORD 


SWAP 




3761 


19FF 


DE 


03 




. WORD 


PDO 




3762 


1A01 


F4 


04 


L3681 


. WORD 


CR 




3763 


1A03 


F7 


03 




. WORD 


I 




3764 


1A05 


78 


19 




.WORD 


LIST 




3765 


1A07 


77 


03 




.WORD 


PLOOP 




3766 


1A09 


F8 


FF 


L3685 


. WORD 


$FFF8 


L3681-L3685 


3767 


1A0B 


F4 


04 




.WORD 


CR 




3768 


1AOD 


67 


02 




.WORD 


CLIT 




3769 


1A0F 


OF 






. BYTE 


$F 




3770 


1A10 


6C 


15 




• WORD 


MESS 




3771 


1A12 


F4 


04 




. WORD 


CR 




3772 


1A14 


67 


02 




.WORD 


CLIT 




3773 


1A16 


OC 






. BYTE 


$0C 


FORM FEED FOR PRINTER 


3774 


1A17 


D7 


04 




.WORD 


EMIT 




3775 


1A19 


OC 


06 




.WORD 


SEMIS 




3776 


1A1B 






J 








3777 


1A1B 






! 






VLIST 


3778 


1A1B 






! 






SCREEN 78 LINE 


3779 


1A1B 














3780 


1A1E 


85 




L3696 


• BYTE 


$85,'VLIS' t $D4 


3780 


1A1C 


56 


4C 










3780 


1A20 


D4 












3781 


1A21 


E5 


19 




. WORD 


L3666 


; LINK TO TRIAD 


3782 


1A23 


D6 


07 


VLIST 


. WORD 


DOCOL 




3783 


1A25 


67 


02 




.WORD 


CLIT 





f lg-FORTH for 6502, Rel 1.1 



PAGE 0080 



LINE 


# LOC 




CODE 


LINE 






3784 


1A27 


80 






. BYTE 


$80 


3785 


1A28 


29 


09 




. WORD 


OUT 


3786 


1A2A 


9D 


07 




. WORD 


STORE 


3787 


1A2C 


4B 


09 




. WORD 


CON 


3788 


1A2E 


79 


07 




. WORD 


AT 


3789 


1A30 


79 


07 




. WORD 


AT 


3790 


1A32 


29 


09 


L3706 


• WORD 


OUT 


3791 


1A34 


79 


07 




• WORD 


AT 


3792 


1A36 


88 


08 




.WORD 


CSLL 


3793 


1A38 


3C 


OA 




.WORD 


GREAT 


3794 


1A3A 


56 


03 




.WORD 


ZBRAN 


3795 


1A3C 


OA 


00 


L3711 


• WORD 


$A 


3796 


1A3E 


F4 


04 




.WORD 


CR 


3797 


1A40 


5D 


08 




. WORD 


ZERO 


3798 


1A42 


29 


09 




.WORD 


OUT 


3799 


1A44 


9D 


07 




. WORD 


STORE 


3800 


1A46 


3A 


07 


L3716 


. WORD 


DUP 


3801 


1A48 


02 


10 




.WORD 


IDDOT 


3802 


1A4A 


5E 


OA 




.WORD 


SPACE 


3803 


1A4C 


5E 


OA 




.WORD 


SPACE 


3804 


1A4E 


EA 


OA 




.WORD 


PFA 


3805 


1A50 


B8 


OA 




.WORD 


LFA 


3806 


1A52 


79 


07 




.WORD 


AT 


3807 


1A54 


3A 


07 




.WORD 


DUP 


3808 


1A56 


73 


06 




.WORD 


ZEQU 


3809 


1A58 


ED 


04 




.WORD 


QTERM 


3810 


1A5A 


AD 


05 




.WORD 


OR 


3811 


1A5C 


56 


03 




.WORD 


ZBRAN 


3812 


1A5E 


D4 


FF 


L3728 


.WORD 


$FFD4 


3813 


1A60 


19 


07 




.WORD 


DROP 


3814 


1A62 


OC 


06 




.WORD 


SEMIS 


3815 


IA64 






> 






3816 


1A64 






> 






3817 


1A64 












3818 


1A64 






• 






3819 


1A64 


83 




NTOP 


.BYTE 


§83,'l 


3819 


1A65 


4D 


4F 








3-19 


1A6 7 


CE 










3820 


1A68 


IB 


1A 




.WORD 


L3696 


3821 


1A6A 


6C 


1A 


MON 


.WORD 


*+2 


3822 


1A6C 


86 


B5 




STX XSAVE 


3823 


1A6E 


00 






BRK 




3824 


1A6F 


A6 


B5 




LDX XSAVE 


3825 


1A71 


4C 


44 02 




JMP NEXT 


3826 


1A74 












3827 


1A74 






TOP 


■ END FORI/1 



L3716-L3711 



L3706-L3728 



MON 

SCREEN 79 LINE 3 



; LINK TO VLIST 



BREAK TO MONITOR WHICH IS ASSU 
TO SAVE THIS AS RE-ENTRY POINT 



; END OF LISTING 



ERRORS =0000 <0000> 



SYMBOL TABLE 



SYMBOL VALUE 



ABORT 


121D 


ANDD 


0598 


BBUF 


08AC 


BLANK 


OE37 


BOS 


0020 


BUILD 


0C4O 


CFA 


0AC7 


COLON 


07C2 


CONST 


080B 


CRLF 


D0D2 


CURR 


0958 


DDISC 


1633 


DECIM 


OBFD 


DFIND 


0F8D 


DLINE 


1558 


DOCON 


0815 


DOTR 


194D 


DP 


0901 


DRO 


1468 


EDIGS 


18AD 


ENTER 


0200 


EXEC 


031F 


FIRST 


0894 


GREAT 


0A3C 


KLD 


0999 


IF 


1837 


IP 


OOAE 


L1018 


C8:>9 


L1050 


0904 


L1074 


0923 


L1106 


094E 


L113S 


0979 


H170 


09 9C 


L1210 


09D5 


L1244 


0AO2 


L1260 


0A33 


L1286 


OAS 6 


L1303 


OA7 7 


L1328 


0A9F 


L1373 


0AE4 


L1405 


OB ID 


L1426 


OB3A 


L1480 


0B95 


LI531 


OBE2 


L1568 


0C2O 


L1634 


OC8E 


H650 


0CB1 


L1663 


OCCB 


L1678 


0CE9 


H709 


0D1A 


L1729 


0D38 


L1760 


0D79 


L1773 


0D92 


L1804 


0DC3 


L1829 


0DF7 


L185 


03D7 



ABS 


12B5 


AT 


0779 


3DICS 


189E 


BLK 


0918 


BRAN 


0337 


BUMP 


0360 


CLIT 


0267 


COMMA 


09D9 


COUNT 


OC82 


CSLL 


0888 


DABS 


12C4 


DDOT 


193E 


DECNP 


02FB 


DIG 


18DB 


DLIT 


I ODE 


DODOE 


0C5C 


DOUSE 


08 4A 


DPL 


0976 


DROP 


0719 


EMIT 


04D7 


EQUAL 


0A06 


EXPEC 


0D41 


FLD 


097F 


HERE 


09BD 


HOLD 


0E46 


IN 


0920 


KEY 


04DF 


L1026 


08E4 


LI 058 


0912 


L1082 


092C 


LI 1 14 


09 5B 


LI146 


09 82 


L1180 


09A9 


L122 


036B 


L1246 


OAOE 


L1264 


OA38 


L1296 


0A66 


L1308 


0A79 


L1339 


0AB2 


L1386 


OAF 7 


L1406 


OB IF 


L1439 


0B4F 


L1495 


0BB1 


L1S4 


039D 


L1582 


0C36 


L1639 


0C9B 


L1651 


0CB3 


L1672 


OCDD 


L1679 


OCEB 


L1718 


0D2C 


LI 736 


0D4B 


L1765 


0D82 


L1779 


0D9E 


L1810 


ODCF 


L1830 


0DF9 


L1856 


0E1E 



AGAIN 


1807 


BACK 


175C 


BINARY 


05A3 


BLOCK 


14D5 


BSCR 


08B8 


CAT 


078E 


CMOVS 


04FE 


COM? 


0B9F 


CR 


04F4 


CSP 


0988 


DAREA 


3B60 


DDOTR 


191B 


DECNP 1 


0301 


DIGIT 


0401 


DMINU 


06F1 


DOES 


0C50 


DOVAR 


0831 


DPLUS 


06B2 


DTRAI 


0CC3 


ENCL 


0498 


ERASE 


0E26 


FENCE 


08F9 


FORG 


16F1 


HEX 


0BE8 


I 


03F7 


INCH 


D1DC 


LI 000 


08BC 


L1034 


08F1 


L1066 


091B 


LI090 


0935 


LI 122 


0966 


L1154 


09 8B 


L1190 


09B6 


L1222 


09E5 


L1254 


0A1B 


L127 


03 6E 


L130 


0379 


L1312 


OAS 8 


L1350 


0AC1 


L1397 


OB08 


L1407 


0B21 


L1451 


0B63 


L1507 


Obbf 


L1543 


0BF3 


L1592 


0C48 


L1644 


0CA5 


L1652 


0CB5 


L1675 


0CE3 


L1685 


OCEF 


L1719 


0D2E 


L1744 


0D5A 


L1771 


0D8E 


L1781 


0DA2 


L1824 


ODED 


L1832 


ODFD 


L1866 


0E2E 



ALLOT 


09CD 


BASE 


09 6D 


BL 


087E 


BMAG 


0420 


BUFFR 


148D 


CCOMM 


09EA 


COLD 


1245 


CON 


094B 


GREAT 


1036 


CSTOR 


07B5 


DBCD 


1671 


DDUP 


0A6D 


DEFIN 


11CE 


DIGS 


1903 


DOCOL 


07D6 


DOT 


195D 


DOVOC 


11A6 


DPM 


12A3 


DUP 


07 3A 


ENDIF 


1780 


ERROR 


OFCD 


FILL 


OE06 


FORTH 


11B6 


HEX2 


D2CE 


IDDOT 


1002 


INTER 


1120 


L1010 


O8D0 


L1042 


08FC 


L107 


034C 


L1098 


0941 


L1130 


0970 


L1162 


0993 


L1200 


09C5 


L1234 


09F6 


L1258 


0A30 


L1274 


0A44 


L130I 


0A7 3 


L1320 


0A97 


L1360 


OACF 


L1402 


0B17 


L1412 


0B23 


L1466 


0B7B 


L15I9 


OBCE 


L1555 


0C08 


L1622 


0C7A 


L1648 


OCAD 


L1657 


0CB7 


L1676 


0CE5 


L1701 


ODOA 


L1723 


0D36 


L1759 


OD77 


L1772 


OD90 


L1788 


0DA8 


L1828 


0DF5 


L1838 


ODFF 


L1876 


0E3F 



SYMBOL TABLE 



SYMBOL 


VALUE 


L1S90 


OE58 


L1914 


OE84 


L1956 


0ED2 


L1971 


OEEE 


L2OO0 


0F28 


L2031 


0F64 


L2047 


OF83 


L2073 


OFB3 


L2096 


OFDB 


L2155 


104B 


L2216 


10B7 


L2238 


10E6 


L227 


0415 


L2283 


1138 


L2289 


1144 


L2301 


115C 


L2321 


1179 


L2369 


11DA 


L2399 


120F 


L243 


0429 


L2464 


128C 


L2481 


12A9 


L2498 


12BD 


L2523 


12E4 


L254 


0445 


L2601 


135F 


L2645 


139E 


L2688 


13E8 


L2716 


1444 


L2758 


1497 


L2788 


14CD 


L2808 


14F9 


L2830 


1525 


L284 


0477 


L2877 


15 7A 


L2891 


159A 


L30I 


04 8E 


L3O50 


166A 


L318 


04B2 


L3225 


1724 


L3261 


1766 


L3300 


17A1 


L3355 


17F3 


L3396 


1832 


L3442 


1878 


L3455 


1897 


L3492 


18CE 


L351 


04E1 


L3529 


1905 


L3573 


1948 


L3605 


1971 


L3647 


19C2 


L3660 


19DC 


L3696 


1A1B 


L3716 


1A46 


L396 


0533 



L1902 


OE69 


L1916 


0E88 


L1961 


OEDB 


L1979 


OEFE 


L2001 


0F2A 


L2041 


0F77 


L2052 


0F85 


L2078 


0FB5 


L2113 


OFFC 


L2163 


105A 


L2222 


10C9 


L2242 


10EE 


L2272 


1122 


L2284 


113A 


L2295 


1150 


L2302 


115E 


L234 


0422 


L2381 


11E7 


L24O0 


1211 


L2433 


1259 


L2469 


1297 


L2483 


12AD 


L2508 


12CC 


L2530 


12F4 


L2556 


1319 


L2612 


136D 


L2662 


13BG 


L2691 


13EE 


L2729 


1462 


L2760 


149B 


L280 


0470 


L281 


0472 


L2835 


1436 


L2857 


1550 


L2886 


158S 


L2896 


159C 


L3030 


162B 


L3060 


1683 


L3202 


16D4 


L3228 


172B 


L327 


04C4 


L3313 


17B2 


L3365 


17FF 


L3411 


1847 


L3449 


1883 


L3460 


189$ 


L3496 


18D5 


L3513 


18EE 


L3535 


1911 


L358 


04EF 


L3620 


1996 


L365 


04F6 


L3666 


19E5 


L370 


0505 


L3728 


1A5E 


L411 


0550 



L1908 


0E78 


L1943 


0EB5 


L1962 


OEDD 


L1994 


0F1C 


L2O07 


0F2E 


L2042 


0F79 


L2068 


0FA9 


L2087 


0FC5 


L214 


03F9 


L22 


0224 


L2226 


10D1 


L2248 


10FO 


L2274 


1126 


L2286 


113E 


L2298 


1156 


L2303 


U60 


L2346 


11AE 


L2388 


1 1F8 


L2406 


1215 


L2437 


1263 


L2471 


129B 


L2488 


12AF 


L2515 


12DC 


L2532 


12F8 


L2579 


1340 


L2622 


137B 


L2670 


13C6 


L2700 


13F8 


L2740 


1472 


L2767 


14A9 


L2804 


14F1 


L2818 


150D 


L2838 


152D 


L2868 


1562 


L2887 


158D 


L2924 


15CF 


L3032 


165A 


L31 


0237 


L3217 


16E8 


L3250 


1755 


L3273 


1778 


L3327 


17C7 


L337 


04D0 


L3431 


1868 


L3452 


1891 


L3471 


18A3 


L35 


0260 


L3517 


18F5 


L3541 


1915 


L3585 


1959 


L3630 


19AA 


L3657 


19D6 


L3681 


1A01 


L3706 


1A32 


L375 


0510 


L418 


0556 



L1913 


0E82 


L1950 


0EC7 


L1968 


0EE1 


L1998 


OF 24 


L2023 


0F54 


L2045 


0F7F 


L207 


03F3 


L2094 


0FD7 


L2142 


102D 


L2200 


1099 


L2232 


10D3 


L2269 


1114 


L2279 


1130 


L2288 


1142 


L2299 


1158 


L2309 


1162 


L2357 


11C0 


L2396 


1208 


L2423 


123E 


L2453 


127B 


L2476 


129D 


L249 


04 3B 


L2517 


12E0 


L2538 


12FC 


L2589 


134C 


L2634 


138F 


L2678 


13D1 


L2705 


1417 


L2751 


1484 


L2776 


14BD 


L2805 


14F3 


L2826 


151D 


L2839 


1440 


L2874 


1574 


L2888 


158F 


L30 


0235 


L3040 


165D 


L3I3 


04A9 


L3220 


170A 


L326 


04C1 


L3290 


1794 


L3341 


17DD 


L3379 


1815 


L344 


04D9 


L3454 


1895 


L3486 


18BF 


L3501 


18D7 


L3526 


18FE 


L3562 


1939 


L3595 


1965 


L3637 


19B0 


L3659 


19DA 


L3685 


1A09 


L3711 


1A3C 


L386 


051E 


L433 


0573 



SYMBOL TABLE 



SYMBOL 


VALUE 






L444 


0587 


L453 


0592 


L499 


05D3 


L511 


05E2 


L54 


025D 


L548 


0617 


L591 


0659 


L605 




L63 


0307 


L632 


0695 


L685 


06E8 


L700 


0701 


L733 


0734 


L744 


0744 


L762 


0761 


L773 


0775 


L798 


0799 


L806 


07A9 


L853 


07EE 


L867 


0800 


L902 


083D 


L920 


0859 


L944 


0871 


L952 


0879 


L976 


0893 


L984 


08A4 


LBRAC 


0EB5 


LEAVE 


061F 


LFA 


OABS 


LIMIT 


08A0 


LITER 


10C1 


LOAD 


15A3 


MESS 


156C 


MIN 


I2D2 


MON 


1A6A 


MSLAS 


131E 


N 


O0A6 


NBUF 


0008 


NP 


0014 


NTOP 


1A64 


ONE 


0865 


ONEKEY 


D1DC 


ORIG 


0200 


OUT 


0929 


PABOR 


OFBF 


PAD 


0E5E 


PDOTQ 


OCF6 


PFA 


OAEA 


PL2 


0391 


PLINE 


1536 


PM 


1291 


PN1 


02E4 


POP 


03EE 


POPTWO 


03EC 


PREV 


13CD 


PRNAM 


02D9 


PUSH 


023D 


PUSHOA 


05DC 


QCSP 


0B6A 


QERR 


OBI 1 


QPAIR 


0B58 


QSTAC 


10F9 


QUES 


1969 


QUIT 


1 1EE 


REENTR 


0204 


RFROM 


064C 


RPSTO 


05F8 


RSLW 


1689 


SECTL 


0640 


SECTR 


0320 


SIGN 


18C6 


SLASH 


1363 


SPACE 


0A5E 


SPACS 


1881 


SSIZE 


0080 


SSLAS 


1394 


STATE 


0963 


STOD 


1282 


SWAP 


0722 


TCOLON 


02BE 


TIB 


08D6 


TIBX 


0100 


TOP 


1A74 


TOR 


063A 


TRAV 


OA84 


TWO 


086D 


UAREA 


3F80 


ULESS 


0A13 


UPDAT 


1401 


UPPER 


OEBD 


USLAS 


055B 


US TAR 


0523 


VLIST 


1A23 


VOCL 


090F 


WARN 


08EE 


WIDTH 


08E1 


XCR 


1621 


XEMIT 


15F1 


XOR 


05C3 


XQTER 


1616 


ZBRAN 


0356 


ZEQU 


0673 



END OF ASSEMBLY 





UDAo 


T iftA 


UDoD 






LjjO 


uo V / 


L DO J 


UDJ J 


t c 7 7 


flAA7 


Lo 1 J 


UD it 


I £1(1 


L)0 8 J 


L649 


UoAD 


Lb /U 


A£.n A 
OoDU 


L711 


0712 


T "7 1 Q 

L/lo 


n "7 l tj 

7 IB 


L75 


0315 


L754 


0758 


L781 


0784 


L787 


0789 


L813 


07B0 


L823 


07BE 


L885 


0820 


L89 


032E 


L928 


0861 


L936 


0869 


L960 


0882 


L968 


08 8C 


L992 


08B0 


LATES 


0AA8 


LESS 


0A1F 


LETTER 


D2C 1 


LIST 


1978 


LIT 


02 2A 


MAX 


12EA 


MEM 


4UUU 


MINUS 


06D8 


MOD 


l 1 "7 *i 

1373 


MSMOD 


13A& 


MS TAR 


1301 


NEXT 


0244 


NFA 


0AD3 


NUMBER 


UfJ/ 


AC C TJT 




A"M C D 

UNtr 


no \ 1 


UK 


n 'i An 


(JL lLri 


D.cX 1 


A\7T7T3 


ri7ns 

U/Uo 


PBUF 


13D8 


PDO 


03DE 


PFIND 


0432 


PL1 


□ 384 


TIT / ' .' 1 - > 

PLOOP 


□ 3 / / 


T> T T T c 

PLUS 


At A A 


PN2 


02EB 


PNUMB 


AT? T? 




UOLo 




U JA / 


PS COD 


OC12 


PS TOR 


n"i/rt 

0/49 


PUT 


023F 


QCOMP 


0B2B 


QEXEC 


0B 4 2 


QL0AD 


0B86 


QTERM 


04ED 


QL r. RY 


ODB0 


R 


06 5D 


RBRAC 


0BC3 


RNUM 


0990 


ROT 


0A4A 


SCR 


0932 


SCSP 


0AFE 


SEMIS 


060C 


SETUP 


0304 


SLMOD 


1353 


SMUDG 


0BD7 


SPAT 


05D9 


SPSTO 


05E8 


SSMOD 


1383 


STAR 


1344 


STORE 


07 9D 


SUB 


09FA 


TCR 


D0F1 


THREE 


A O ~t E 

0875 


TICK 


16D8 


TOGGL 


07 6A 


TOS 


009E 


TRACE 


026F 


TWOP 


09AE 


TYPE 


0C95 


UNTIL 


17E5 


UP 


00B3 


USE 


13C2 


USER 


0844 


VAR 


082B 


VL0 


11BE 


W 


00B1 


WARM 


1257 


WORD 


0E70 


XBLANK 


DOAF 


XFOR 


11BC 


XKEY 


160C 


XSAVE 


00B5 


XW 


0012 


ZERO 


085D 


ZLESS 


0688 



< 



HEX 200 1A74 DUMP 








1 


2 


3 


4 


5 


6 


7 


8 


9 


A 


B 


C 


D 


E 


F 






200 


EA 


4C 


47 


12 


EA 


4C 


57 


12 


4 





D2 


5E 


7D 


20 


7F 





LG 


LU *} 


210 


80 


3F 


9E 





FF 


1 





1 


IF 





1 





9 


24 


9 


24 


? 


$ $ 


220 


7B 


20 


4C 


44 


83 


4C 


49 


D4 








2C 


2 


Bl 


AE 


48 


E6 


{ LD 


LI , H 


230 


AE 


DO 


2 


E6 


AF 


Bl 


AE 


E6 


AE 


DQ 


2 


E6 


AF 


CA 


CA 


95 






240 


1 


68 


95 





AO 


1 


Bl 


AE 


85 


B2 


88 


Bl 


AE 


85 


Bl 


EA 


h 




250 


EA 


EA 


18 


A5 


AE 


69 


2 


85 


AE 


90 


2 


E6 


AF 


4C 


BO 







i L 


260 


84 


43 


4C 


49 


D4 


24 


2 


69 


2 


Bl 


AE 


48 


98 


F0 


C8 


86 


CLI 


$ i H 


270 


B5 


20 


32 


DO 


A5 


AF 


20 


CE 


D2 


A5 


AE 


20 


CE 


D2 


20 


AF 






280 


DO 


AO 





Bl 


AE 


85 


12 


85 


14 


C8 


Bl 


AE 


85 


13 


85 


15 






290 


20 


D9 


2 


A5 


13 


20 


CE 


D2 


A5 


12 


20 


CE 


D2 


20 


AF 


DO 






2A0 


A5 


B5 


20 


CE 


D2 


20 


AF 


DO 


A9 


1 


20 


CE 


D2 


BA 


E8 


8A 






2B0 


20 


CE 


D2 


20 


AF 


DO 


EA 


EA 


EA 


A6 


B5 


AO 





60 


86 


B5 






2C0 


fO 


Bl 


85 


1 4 


A5 


B2 


85 


15 


20 


D2 


DO 


A9 


3A 


20 


CI 


D2 






2D0 


n rv 

20 


AF 


DO 


20 


D9 


2 


A6 


B5 


60 


20 


FB 


2 


20 


FB 


2 


20 






2E0 


FB 


2 


AO 





20 


FB 


2 


Bl 


14 


10 


F9 


C8 


Bl 


14 


20 


CI 






2F0 


TV T 
D2 


Bl 


L4 


1 P 


F6 


20 


AF 


DO 


a r\ 

AO 





60 


A5 


14 
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B8 


A 


79 


7 : g y 


FF 


8 


7 


6D 


8 


FA 


: ] V m 


3 


D9 


FF 


4C 


6 


1 


y m s V L 


E8 


16 


D6 


7 


BD 


9 


BAG 


49 


CE 


55 


17 


D6 


7 


BEGI U 


4E 


44 


49 


C6 


66 


17 


+ e END I f 


8 


7 


FA 


9 


22 


7 


+ m X 


17 


D6 


7 


80 


17 


C 


THE x 


DE 


3 


BD 


9 


75 


8 
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D6 
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C 


6 


C5 


55 


4E 
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B 


9F 


B 


56 


3 


5C 


TI e X V \ 
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E5 


17 


C 


6 


C5 


EN 



A 


B 


C 


D 


E 


F 




8 


58 


B 


9F 


B 


37 


AGAI e X 7 


41 


D4 


FF 


17 


D6 


7 
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6D 


8 


FA 
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80 
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: : L L m 
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56 


3 


BD 
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5D 
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C5 
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D6 


7 


m ELS 2 


5D 


8 


D9 


9 


22 


7 


m X 7 ] " 


48 


49 


4C 


C5 


47 


18 


m m WHIL G 


50 


41 


43 


45 


D3 


68 
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5D 
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DE 


] m V 3 


3C 


A3 


78 
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D6 


7 


w < X 


BE 


99 


18 


D6 


7 


19 


# 


7 


FA 


9 


C 


6 


84 


y 


88 


6 


56 


3 
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SIG J V 
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D6 
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6D 
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79 
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IF 
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56 


3 
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46 
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C 


6 


82 


23 


g g F ft 
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B 
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D 


E 
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6 


56 


s V 
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D6 


7 


3A 


6 


22 
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18 


AD 


18 


4C 


6 


8 


L 


44 


AE 


15 
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D6 
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D 


D2 


39 


19 


D6 


7 


3A 


] . 9 : 


AE 


48 


19 


D6 


7 


82 


L H 


7 


79 


7 


5D 


19 


C 


> Y y ] 


FD 


B 


F4 
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3A 


7 


LIS e : 


20 


23 


20 


5D 


19 


67 


2 SCR if ] g 


75 


8 


4D 


19 


5E 


A 


] u M * 


EC 


FF 


F4 


4 


C 


6 


2 y X w 


F4 


4 


Al 


9 


22 


7 


INDE q 


5E 


A 


5D 


8 


F7 


3 


u M " ] 


77 


3 


E6 


FF 


67 


2 


XV w g 


C4 


BO 


19 


D6 


7 


75 


TRIA u 


7 


99 


6 


22 


7 


DE 


c u D u " 



-11- 



12 3 

1A00 3 F4 4 F7 

1A10 6C 15 F4 4 

1A20 D4 E5 19 D6 

1A30 79 7 29 9 

1A40 5D 8 29 9 

1A50 B8 A 79 7 

1A60 19 7 C 6 

1A70 B5 4C 44 2 
OK 



4 5 6 7 8 9 
3 78 19 77 3 F8 
67 2 C D7 4 C 
7 67 2 80 29 9 
79 7 88 8 3C A 
9D 7 3A 7 2 10 
3A 7 73 6 ED 4 
83 4D 4F CE IB 1A 
87 50 2D 43 4F 55 



A B C D E F 
FF F4 4 67 2 F 

6 85 56 4C 49 53 
9D 7 4B 9 79 7 
56 3 A F4 4 
5E A 5E A EA A 
AD 5 56 3 D4 FF 
6C 1A 86 B5 A6 
4E D4 64 1A 31 8 



x w g 
1 g VLIS 

g ) k y 
y ) y < v 
] ) : 

y ! S V 
MO 1 
LD P-COUN d 1 



Demonstration of startup, with tracing. 



*>=200 

<r>**** PS AA XX YY SS 
0200 B4 1A AO 00 FD 
<G>/ 

rp uj sp gp 

121F SP! OSES AO 01FE 
1221 DECIMAL OBFD 9E 01FE 
: DECIMAL 

OBFF CLIT 0267 9E 01FC 
0C02 BASE 096D 9C 01FC 
0C04 ! 079D 9A 01FC 
0CO6 ;S 060C 9E 01FC 
1223 DRO 1468 9E 01FE 
: DRO 

L46A 085D 9E 01FC 
146C OFFSET 093E 9C 01FC 
146E ! 079D 9A 01FC 
1470 ;S 060C 9E 01FC C~ 
1225 CR 04F4 9E 01FE 

1227 (-") 0CF6 9E 01FE 

: (•") <Sr. 

0CF8 R 065D 9E 01FC 
OCFA COUNT 0C82 9C 01FC 
: COUNT 

0C84 DUP 073A 9C 01FA 
0C86 1+ 09A1 9A 01FA 
: 1+ 

09A3 1 0865 9A 01F8 
09A5 + 0699 98 01F8 
09A7 ;S 060C 9A 01F8 
0C88 SWAP 0722 9A 01FA 
0C8A Cg 078E 9A 01FA 
0C8C ;S 060C 9A 01FA 
OCFC DUP 073A 9 A 01FC 
OCFE 1+ 09A1 98 01FC 
: 1+ 

09A3 i 0865 98 01FA 
09A5 + 0699 96 01FA 
09A7 ;S 060C 98 01FA 
ODOO R> 064C 98 01FC 



Aid w*TS 
A J d 



k Fo2TH' 



<M>«02B6 20 DC Dl A6 B5 AO 00 60 

</> 02B6 EA EA EA 

<G>/ 

<*>=200 

<G>/ 

121F SP! 05E8 AO 01FE 
1221 DECIMAL OBFD 9E 01FE 
: DECIMAL 

OBFF CLIT 0267 9E 01FC 
0C02 BASE 096D 9C 01FC 
0C04 ! 079D 9A 01FC 
0C06 ;S 060C 9E 01FC 
1223 DRO 1468 9E 01FE 
: DRO 

146A 085D 9E 01FC 
146C OFFSET 093E 9C 01FC 
146E ! 079D 9A 01FC 
1470 ;S 060C 9E 01FC 
1225 CR 04F4 9E 01FE 

1227 O") 0CF6 9E 01FE 
: (.") 

0CF8 R 065D 9E 01FC 
OCFA COUNT 0C82 9C 01FC 
: COUNT 

0C84 DUP 073A 9C 01FA 
0C86 1+ 09A1 9A 01FA 
: 1+ 

09A3 1 0865 9A 01F8 
09A5 + 0699 98 01F8 
09A7 ;S 060C 9A 01F8 
0C88 SWA? 0722 9A 01FA 
0C8A C@ 078E 9A 01FA 
0C8C ;S 060C 9A 01FA 
OCFC DUP 073A 9A 01FC 
OCFE 1+ 09A1 98 01FC 
: 1+ 

09A3 1 0865 98 01FA 
09A5 + 0699 96 01FA 
09A7 ;S 060C 98 01FA 
ODOO R> 064C 98 01FC 
0D02 + 0699 96 01FE 
0D04 >R 063A 98 01FE 
0D06 TYPE 0C95 9A 01FC 
: TYPE 

0C97 -DUP 0A6D 9A 01FA 



no-op tkc csU* h OHiBLBY 



<M>-024F 20 6F 02 18 A5 AE 69 02 

</> 024F EA EA EA 

<*>=20O 

<G>/ 



: DECIMAL 
: DRO 

(•"> 
COUNT 
1+ 
1+ 

TYPE 

-DUP £ ig-FORTH 1.0 
DEFINITIONS / J 



[ 

QUERY 

EXPECT 

40RIGIN 



itrM !aa/ 



op 



TPC5 



1 1 



+ORIGIN 



1+ 2. 

■H3RIGIN 



1+ X 
+ORIGIN 



+0RIGIN 



i+ . (LI 

+ORIGIN 



1+ <ir*-k'^> 

INTERPRET r 
-FIND <,/>fA/C 



WORD 

HERE 

BLANKS 

FILL 

1+ 



HERE 
HERE 
1+ 

HERE 

COUNT 

1+ 

UPPER 
> 
> 
> 

HERE 

HERE 

LATEST 

HERE 

NUMBER 

ROT 

1+ 



(NUMBER) 

1+ 

ROT 

1+ 

1+ 

ROT 

1+ 

1+ 

ROT 

1+ 

1+ 

1+ 

LITERAL 
? STACK 
U< 

? ERROR 
U< 

TERROR 
-FIND 
WORD 
HERE 
BLANKS 
FILL 
1+ 



Goau»>5 fen 



HERE 
HERE 
1+ 

HERE 

COUNT 

1+ 

UPPER 
> 

HERE 
CFA 



S->D 

D. 

D.R 

DABS 

D+- 

<# 

PAD 

HERE 

its 
It 

M/MOD 

ROT 

HOLD 

it 

M/MOD 
ROT 
HOLD 
It 

M/MOD 

ROT 

HOLD 

SIGN 

ROT 

it> 

PAD 
HERE 



SPACES 
MAX 
-DUP 
TYPE 
-DUP 123 
SPACE 
? STACK 
U< 

TERROR 
U< 

TERROR 



"/2 3 



1- 



1+ 

HERE 

COUNT 

1+ 

UPPER 
> 

HERE 
CFA 

COUNT 

1+ 

1+ 

TYPE j i' * 

-DUP OK prTfr ^ >(C 



QUERY 
EXPECT 



<M>=07DC 20 BE 02 18 A5 Bl 69 02 
</> 07DC EA EA EA 



<r>**** PS AA XX YY SS " T, s ' 

ri2nri ia m nn m ' (.ouon 



0200 B4 U AO 00 FD 
<*>=200 
<G>/ 

fig— FORTH 1.0 



1234 . 1234 OK 



VLIST 

MOM VLIST TRIAD INDEX LIST ? . .R D. D.R #S 

# SIGN #> <# SPACES WHILE ELSE IF REPEAT AGAIN 

END UNTIL +LOOP LOOP DO THEN ENDIF BEGIN BACK FORGET 

R/W -BCD -DISC — > LOAD MESSAGE .LINE (LINE) 
BLOCK BUFFER DR1 DRO EMPTY-BUFFERS FLUSH UPDATE +BUF 
PREV USE M/MOD */ */MOD MOD / /MOD * M/ M* 
MAX MIN DABS ABS D+- +- S->D COLD ABORT QUIT 
( DEFINITIONS FORTH VOCABULARY IMMEDIATE INTERPRET ?STACK 
DLITERAL LITERAL [COMPILE] CREATE ID. ERROR (ABORT) 
-FIND NUMBER (NUMBER) UPPER WORD PAD HOLD BLANKS 
ERASE FILL QUERY EXPECT ." (.") -TRAILING TYPE 

COUNT DOES> <BUILDS ;CODE (;CODE) DECIMAL HEX SMUDGE 
] [ COMPILE ? LOADING ?CSP 7PAIRS ?EXEC ?COMP ? ERROR 
!CSP PFA NFA CFA LFA LATEST TRAVERSE -DUP SPACE 
ROT > < U< = - C, , ALLOT HERE 2+ 1+ HLD 
R# CSP FLD DPL BASE STATE CURRENT CONTEXT OFFSET 
SCR OUT IN BLK VOC-LINK DP FENCE WARNING WIDTH 
TIB +ORIGIN B/SCR B/BUF LIMIT FIRST C/L BL 3 2 
1 USER VARIABLE CONSTANT ; : C ! 1 C@ (§ TOGGLE 
+ ! DUP SWAP DROP OVER DMINUS MINUS D+ + 0< 0= 
R R> >R LEAVE ; S RPl SP J SP@ XOR OR AND U/ 
U* CMOVE CR ? TERMINAL KEY EMIT ENCLOSE (FIND) DIGIT 
I (DO) (+LO0P) (LOOP) OBRANCH BRANCH EXECUTE CLIT 
LIT OK 



